(NASA-CR-162501) PROGRAMflING IN HAL/S NfiO-12766 

(Intecaetrics, Inc.) 341 p HC A15/HF A01 






u 

CO 

u 


Programming in 



Uk 




PROGRAMMING IN HAL/S 

MICHAEL J. RYER 

Ink'l IIK'IIKS IlK 


I il<K unKMU svas preparct! inulcr N \S \ ( iMUract N VS^-] 



PREFACE 


Ihis nuniia! is intended as an introduction to programming in HAL/S. The reader is 
presumed to have some experience using one or more procedure-oriented languages such as 
FORI RAN or PL/I The book may be used either as part of a self-study program or in con- 
junction with a course of twenty to forty classroom hou -s over a period of one to two 
weeks. 

The matenal is organized as a tutorial rather than as a reference book. Furthermore, it 
IS intended as an introduction to HAL/S rather than as a definitive exposition. After com- 
pleting the course, the reader sliould refer to the llALjS Lati^uafie Specification or the 
UAHS Profirammer 's Guide for a more detailed and complete description of the language. 

It IS impossible to give proper credit to all the people at NASA. IBM, and Intermetrics 
who have contributed to this btxik Special recognition must go to Josephine Jue. John 
Schwartz, and Al Mandehn for their detailed review of several drafts of the manuscript, to 
Clary Singer for performing the final editing and page layout, and to Valerie Censabella who 
typed all of the manuscripts and got the majority of the exercises througti the HAI./S-360 
compiler. 

.Support of the MAL/S language, compilers, and documentation is an ongoing effort of 
NASA and Intermetrics. Comments on this manual will he appreciated and will be incor- 
porated into subsequent editions. All comments or inquiries should be addressed to 

HAL/S Language Group 
NASA Jet Propulsion Laboratory 
Programming Development Section 
Mail Stop 124-241 
4800 Oak Grove Drive 
Pasadena, CA 91103 
12^'’' 354 3289 


Michael J. Ryer 
September l^7g 



PREFACE TO THE SECOND EDITION 


The first edition of Programming in HALfS has found a welcome home in the growing 
community of HAL/S users. It has proven to be quite useful us both u teaching aid. and for 
the independent study of HAL/S. 

This edition contains a new chapter on FIXED data types and a new appendix on 
FORMAT I/O. A number of corrections have also been incorporated .nto the text. 

Special thanks for work on these chapters go to Steve Gallant, Mark Davis, Bruce 
Knobe, and Fred Martin. 


September 1979 
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Learning HALfS after FOR TRAN l-I 


1.0 INTRODUCTION 

HAL/S is a computer programming language; it is a representation for algorithms which 
can be interpreted by either a person or a computer. HAL/S compilers transform blocks of 
HAL/S code into machine language which can then be directly executed by a computer. 
When the machine language is executed, the algorithm specified by the HAL/S code (source) 
is performed. This document describes how to read and write HAL/S source. 

HAL/S was developed principally for real-time aerospace programming. Us most signifi- 
cant use to date has been the production of the NASA Space Shuttle Flight software. This 
intended application imposed three major constraints on the language design: reliability, 
efficiency, and machine-independence. Reliability and efficiency are obvious requirements 
of flight software. The machine-independence requirement stems from a desire to minimize 
programmer training, to transfer blocks of proven code between distinct NASA projects, 
and to reduce the dependence on flight hardware availability. 

Within these constraints, the language provides simple and intuitive constructs for func- 
tions commonly performed by aerospace applications, such as vector/matrix arithmetic. 
More generally, HAL/S is suitable for real-time process control applications, particularly 
where mathematically-oriented algorithms are involved. While the language is ''tuned'" for 
aerospace, the machine-independence and reliability aspects of HAL/S make it attractive for 
a variety of applications which do not perfectly match the original intent. 

It may seem strange to some readers to attribute reliability to a programming language 
rather than to programs written in that language. This viewpoint is an outgrowth of the 
study of structured programming. A reliable program produces correct results for all pos- 
sible combinations of inputs. Since it is usually impractical to exercise the program on all 
possible inputs, prograihs must be verified by induction. The assertion is made that if the 
program passes a particular set of tests, then the program will produce correct results for 
any set of inputs. This assertion is always based on an understanding of the program's 
internal workings. If the logic of a program is misunderstood, the results of verification 
cannot be relied upon. 

Although it is difficult to assess the psychological implications, certain high order lan- 
guage constructs (e.g., the GOTO) are known to be symptomatic of unreliable programs. 
These constructs have been eliminated or highly restricted in HAL/S. 

U LEARNING HAL/S AFTER FORTRAN 

HAL/S is similar to FORTRAN in many ways. The assignment statement is essentially 
the same in both languages. The FORTRAN concepts of subroutines, arrays, common 
blocks, and library routines all have analogues in HAL/S. Some concepts have been ex- 
tended; for example, the FORTRAN statement A*>B>C can be used to and either integen 
or reals: the compiler generates instructions appropriate to the types of A, B, and C. In 
HAL/S, the same concept applies, but A, B, and C may also be vectors, matrices, or arrays 
of any type. HAL/S has many more data types than FORTRAN. 

Every variable used in a HAL/S program must be explicity declared before it is refer- 
enced. This is done via the DECLARE statement, which specifies the name of the variable 
and its attributes (including its data type or ''mode'*). The need to declare variables results 
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from :hc wide variety of data types in HAL/S. It also allows the compiler to check for mis- 
use of data and to enforce certain programming standards. For example, a FORTRAN pro- 
grammer might divide a variable containing alphanumeric character data by the number 256 
in order to access the leftmost byte. HAL/S does not allow any arithmetic operations on 
character data since such operations usually depend on the particular character code in use 
and are thus machine-dependent. Instead, individual characters may be extracted from a 
character variable by explic t subscripting. Similarly, binary (logical) data is a distinct data 
type. The AND, OR, and NOT operators may be used with BOOLE ANS or BIT stnngs, but 
not with anthmetic data. 

These restrictions may seem awkward at first, but with experience it will become quite 
natural to select the appropriate type for each variable in advance. HAL/S includes con- 
structs for data type conversions, but these conversions are needed less frequently than an 
experienced FORTRAN programmer might expect. 

Another major difference between HAL/S and FORTRAN is in the flovz-control ( branch- 
ing) statements Structured programming research has had a major impact in this area In 
essence, the various forms of GOTO statement have been replaced with more reliable con- 
structs. The distinction may be characterir.ed as “flow control by nesting of statements” 
rather than “flow control by branching”. While this difference of philosophy may make 
the transition to HAL/S from FORTRAN more difficult, it can be argued that the HAL/S 
form is more English-like and thus move intuitive. Furthermore, using the HAL/S flow-con- 
trol constructs instead of GOTOs tends to result in a program wh*ch can be read sequentially 
(from top to bottom). Loops and decisions are expt*?ssed explicitly in HAL/S rather than 
implied by a convoluted arrangement of forward and backward branches. In any case, most 
modem programming languages (including FORTRAN ’77) have flow control statements of 
the type found in HAL/S. 

While the treatment of datatypes and flow control are the most fundamental differences 
between HAL;S and FORTRAN, the differences in soiirct and listing formats aie the most 
noticeable. The source format is somewhat freer than in FORTRAN, The output listing 
format, however, is not under programmer control at all. Every HAL/S listing is put in a 
standard format by the compiler. Each HAL/S statement is placed on a new line and auto- 
matically indented to show its relationship to other neighboring statements. Exponents and 
subscripts are raised and towered (respectively) in the listing, and various additional infonna- 
tion (compiler-generated annotation) is added. Thus, the work of the programmer is reduced, 
the indenting is always correct (since the compiler re-computes it every time), and reading a 
listing required no knowledge of the individual programmer’s style. 

Other major differences between HAL/S and FORTRAN arc in the areas of Real-time 
interactions, and the interfacing of separately compiled units. These advanced topics are 
thoroughly discussed in chapters eleven and twelve of the text. 

1 .2 HAL/S CONTRASTED WITH OTHER HIGH ORDER LANGUAGES 

The differences between HAL/S ind other high order languages arise trom the charac- 
teristics of aerospace applications, and the time-frame in which liAL/S was designed. HAL/S 
was developed between 1970 and 1972. Since that time, changes which would invalidate 
existing HAL/S code have been resisted. Thus, some recent advances in language design have 
not been incorporated. Note, however, that the language did evolve from a thorough study 
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of the existing languages. Most of the concepts wlndi have hcen developed since that time 
have not been implemented in any opcrationa! Irathcr than expeninental) language. When 
these concepts (e g . data abstraction) have been proven outside of the university environ- 
ment. they may be incorporated in HAl S iJivre is an established language control board 
which continuously reviews the state of the ind suggests and/or approves changes to 
HAL/S 

Some features which were in common use at the time were excluded due to efficiency 
considerations These include recursion and dynamic storage allocation In addition to the 
overtiead normally associated with these facilities, a reliability problem is avoided by their 
exclu.sion Because of these and other exclusions, the total storage rei|uirement of a MAL/S 
application can be exactly determined beloro execution starts ( onscituently. HAL/S pro- 
grams can never run out of storage durng execution. This safety feature is essential in 
aerospace applications. 

Other constructs, such as the full generality of the PL/1 error recovery system, have also 
been omitted for reasons of efficiency 

HAL/S also lacks sophisticated facilities for dealing with ground-based peripheral devices 
(printers, plotters, etc.), ('haracter-oriented I/O statements are provided for testing and 
development, but many I/O facilities provided by ground-based operating systems are in- 
accessible from HAL/S This is due to the design emphasis on flight software, and the lack 
of standardization of the concepts and facilities of ground -based operating systems 

HAL/S stres.ses readability rather than “writability** This approach acknowledges the 
fact that a program is written once (generally by one person), but is read many times (and 
often by many people). For instance, there arc no abbreviations for HAL/S keywords. 
Furthermore, all of the keywords are “reserved”. No confusion can arise from variable 
names which duplicate keywords, because no such re-use of a keyword is allowed. 

On the other hand. HAL/S includes some facilities which other languages lack. V\'ctor/ 
matrix arithmetic has already been mentioned: HAL/S vectors and matrices are distinct 
from arrays, and are supported by a full set of opeiations. These include cross and dot 
product, as well as addition, subtraction, multiplication, division, and exponentiation. All 
are defined according to the usual rules of mathematics. 

Although HAL/S contains features abstracted from a variety of languages, it exhibits a 
considerable uniformity. For instance, a portion of a variable is always selected by subscript- 
ing. whether the variable is a 3-vector, a character string, or a set of bits comprising a 
computer word. 

Finally, there is one difference which is not exhibited in the language perse. This may 
be termed the “system” asp *ct of HAL/S In addition to the listing and a machine-language 
“object module”, the compiler generates a machine-readable random access f.te containing 
information about every variable and statement in the program. This file is then used by 
various statistics and diagnostic packages, Furthermore, some compilers can optionally in- 
sert “hooks” (diagnostic package interfaces) in the generated code. These interfaces are useit 
in a functional simulation execution mode. 
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FSIM is a tool which allows flight code to be dt^veloped and tested on ground-based 
computet s. It includes a model of the flight operating system, and simulates the timing of 
the flight computer It also includes provisions for the simulate ,>n of avionics I/O This is 
done in such a way that flight code can be executed on a ground-based c mputer without 
any source-level changes whatsoever. Debugging commands are entirely based on the HAL/S 
source, the program can be debugged without knowing any details of the ground computer 
hardware. More information regarding the compiler and related software can be found in 
Appendix B of this manual. 

1 J HAL/S CONTRASTED WITH THE ASSEMBLY LANGUAGE 

This manual is primarily intended for experienced high order language programmers; this 
section presents some brief background information for program men whose experience has 
been primarily in assembly language 

The term '"high order language"' refers to languages in which a line of source produces a 
variable number of machine instructions. Some readers may initially view HAL/S as a tool 
for specifying machine instructions more compactly. 

Many assemblers allow expressions, such as ‘"A>B/C"’ in certain contexts where a num- 
ber is needed. The symbols used in these expressions must have values known to the assem- 
bler; i.e.. A, B. and C must be equated to constants in some way or must be macros which 
expand to constants or literals. The computation is done at assembly time and the output of 
the assembler contains just the value of the expression. 

This facility is present in HAL/S. There is, however, an important distinction: if the 
values of the symbols used in a HAL/S expression are not known at comptle-ltme, then ma- 
chine instructions are generated to perform the computation at run-time. Most of the row- 
putation in a HAL/S program is specified by means of expressions. There arc no ADD or 
SUBTRACT HAL/S statements, all arithmetic is done with operators (e.g., ** etc.). 

The operator will add integers, scalars, vectors, matrices or arrays of any of these basic 
types. The same operator performs both single and double precision arithmetic. Thus, the 
compiler ""decides** what particular machine instructions are appropriate to add the specified 
operands together. This is one type of bookkeeping that is automated by the compiler. 

This approach illustrates another meaning of **high order language'*, the programmer 
is farther removed from the details of the computer hardware. The programmer specifies 
a function (e 4 „ addition) and the compiler maps it into the computer's repertoire (e.g.. 
LOAD, ADD, STORE;. All addressing and instruction usage decisions are also the province 
of the compiler. 

Unlike a macro assembler, the compiler does not always generate the same instruction 
sequence for a given source statement. It can ""remember" whether a variable is still in a 
register from some prior statement, and. if lo. avoid re-loading it. The compiler may also 
move an entire computation out of a loop if none of the variables referenced are modified 
within the loop. Generally, the compiler is free to make any rr-arrangement of the program, 
provided that the same results will be produced from its execution. This means that it is 
nearly impossible to predict what machine instructions will be generated when a particular 
HAL/S statement is compiled. Hence, the best policy is to specify the desired function in 
the most intuithe way and ignore the mapping into machine instructions 
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riuTc IN no way to rcicrencc a particular machine register or word oi memors in a 
HAL/S program Operations are perlormeU on vanahles and constants rather than addresses 
and registers All such avsignnients are nude hy the compiler A large class ot potential 
programmer errors (eg. use i>l (he wrong register) is avoided by this approach 

1 .4 INTRODUCTION TO THE MAIN TEXT 

Fhe following chapters des».nhe the MAL S Language, a tew advanced feauircs are 
omitted, but most of the language is covered, mcluding all ot the tret|uently used con- 
structs Hits manual is intended for set|uenlial reading The HAL/S Language Specification 
is more appropriate for use as a reterence, since it is concise, complete, and fully cross- 
referenced This manual, being tutorial m nature, describes each facet of the language m 
terms of the material presented m previous chapters interactions between separate con- 
structs arc not discussed until each construct has been described separately t ach chapter 
is a pfcre<|uisile to Che next but no other knowledge <>f HAL/S is avsumed. 

Another document . the HAL/S Programmer’s (iuidc, is also tutorial in nature, but 
each chapter is self contained material is repeated instead of referenced Hence, the 
pfogranuucr’s guide may be the best choice for “brushing up” on some particular aspect 
of the language. 

The information n^^eded to compile (link, run and debug) a HAL/S program, once it 
IS written, can be found m the HAL/S User’s Manual for the particular compiler in use 
These documents alst> describe variations among compilers (i.e . implementation 
dependencies) 

The chaj*ters which follow explain HAL/S pnnurily by example The fonn ot eadi 
construct IS always shown by example, the examples are so constructed that the tneumngs 
of new tonus can be deduced. Those who learn easily from examples may find portions ot 
the I nglish explanation redundant In every case, the examples arc intended to be read from 
top to bottom when they are first referenced, rather than after the new constructs have 
been explained 

The occasional tables and lists need not be rnemori/ed. If the exercises can be done 
after one reading, furtner study is not needed The most important constructs are used 
freely in subsequent chapters, thus providing a continuous review of earlier material It 
would be difficult to learn HAL/S without writing any HAL/S programs, about one-half of 
the exercises require programming Answers to all are given in Appendix (’. 

Computer words which arc not defined herein teg . algorithm, program) may be :a!;en 
at their conventional meanings. In some casex, a more precise HAL/S meaning is given later 
I>ennitions are denoted by italics as m “the form and meaning nf a language construct are 
generally termed its ' max and j, respectively ” 

Chapter Two contains enough information to write a HAL/S program that really does 
something Chapter Three completes the topics introduced in C’hapter Two, primarily addi- 
tional forms of the arithmetic expression. The remaining chapters discuss flow control, addi- 
tional data types, and advanced topics such as real-time programming 
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2.0 READING. WRIl ING. AND ARITHME1 1( 

The Pasic rules for writing a HAL/S program are •%hown in the exar^*>le below 

SIMPLE. PROGRAM. 

r CODE IN THIS TYPEFACE IS 

C HAL/S SOURCf 

DECLARE PI CONSTi^NT O 14I5‘>26(», 

Did ARE R SCALAR; 

READ<5) R. 

WRITE(6) PI R 

CLOSE SIMPLE: 

2.1 WRITING A HAL/S PROGRAM 

The example above consists of six HAL/S statements and two comments. The ^irst state- 
ment serves to illustrate several conventions u.sed throughout the language. 

1 . E>cry program begins with a labeled PROGRAM statement. 

2. HAL/S statements are labeled by preceding them with an u’ ’ntififr and a colon. 

3. All HAL/S statements end with a semi-colon. 

The two lines following the PROGRAM statement are comments. For further clanfica- 
lion, additional lines could be used. Any line containing a C in column one b a comment. 
Con.ment lines may be placed anywhere in a program. 

The next statements arc DECLARE statements. These statements form the deilan 
group, which precedes the rxgcutable ttatemants in evi^ry program. Variables are created via 
the DECLARE statement. Variables must always be declared before they are used. READ 
and WRITE are executable statements. The numbers 5 and 6 m parentheses are channel 
numbers. They control the routing to and from an external device. Many other executaole 
statements will be intrnduced in bter chapters. CLOSE, tike PROCiRAM, b a delimiting 
statement: It b the last line of every program. The block delimiting statements are further 
discussed in . ^uptcr seven. Thb chapter stresses the DECLARE statement and the assignment 
^it’itement (not shown above). 

In thb simple example each statement could be punched onto a card just as shown 
HAL/S souK'e b free format: There an no rules about partuular card columns exvept 
iolumn one. Column one must contain one of the characlen E, M. $, C, D or blank. Normal 
statements are written with a blank in column one. X** is used for comments, the use of 
the other characten will be dbcussed lat«.r. 

When a program b stored on dbk or tape the format is the same. Column one b defined 
as the first character of a record or the character following an end of line code. With this 
exception, the arrangement of KAL/S source on cards or records does not affect its inter- 
pretation by the compiler. The example above could abo be put as 
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SIMPI I PHCK'.RAM. 

(' IMIS IS HAL/S SOlIRC'l 

OICLARi: PI (ONSTANT ( ^I4l59:(i(»): mciARI' 

R SCALAR; Rl AD(5) R. WRITI (O) 

PI H**2: CLOSl SIMPLH; 

Longer programs are not always written correctly the first time PlaJng only o** state- 
ment on a line makes later nunhlications much casiei.* 

Since every statement ends with a semi-colon, no additional convention is needed for 
long statements. It i\ the scmia)lon rather than the end tif a line that marks the end of a 
statement To put a comment aftei a statement on the same line, the *V*" fonn can be used. 
Lor instance: 

RLAIX5)R. /♦OBTAIN RADIUS*/ 

WRITL(d) PI R**:. /* ** Ml ANS I.XPONI N I IATION */ 

This type of comment may be placed anywhere a blank is allowed (except m column 
one). It consists of any string of characters beginniiig with ‘\/*" and ending with **♦/“. As 
the example shows, “♦’* and “/“ may be used within the string in any combination other 
than 

riie WRITI' statement could also be coded as 

column I 
I 

L' : 

M WRH L((>) PI R. 

Here, column one is used to distinguish between main and exponent lines. Some implemen- 
tations of HAL/S accept a two dimensional input format in which exponents and subscripts 
are indicated by their positions. Multi-line input is generally not used however, since enter- 
ing and maintaining source in this form is cumbersome under common editors or on cards. 
The compiler produces listings in the multi-line format but all source in this book will be 
shown in the single-line form. 

The preceding paragiaphs ui'scribe the placement of statements in a file or on cards. 
Ne.xt we will discuvs the fonnat of individual statements. 

Ilie PR(KJRAM and C'LOSL statements each contain the keyword, an id»mtifier. and 
punctuation. Keywords an; the ‘’verbs” in HAL/S. Lach has a predelmed meaning, and 
so cannot be used as a variable name, A complete list of keywords is given in Appendix 
I). All of the IIAL/vS keywords are made up of the letteis A through 7.. Lxcept for the 
ARCTAN2 function, no numerals are used. TItc underscore, or “break character” ( ) i.s 
not used in any IIAL/S keyword. 


♦Some debugging systems allow a breakp<iint to be set at the statement on a t^articular card (speciOed by 
sequence number). Placing only one statement per line also simplitles this usage. 
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Blanks, or spaces, are significant in HAL/S. For instance, DECLARER is a valid identi- 
fier. It would never be interpreted as DECLARE R, Blanks must be coded between key- 
words and identifiers in any combination. Except in comments and character strings, 
however, there ts no difference between one blank and many blanks. 

The compiler sees its input as a continuous stream of characters, i.e., the concatenation 
of columns 2 through n of the entire input file. This input is split into words at the punctua- 
tion: blanks, commas, semi-colons, etc. The punctuation is in two categories: delimiters 
such as and blank, and operators such as +. blank, and /, When a blank appeals 
between two identifiers or expressions it serves as the multiplication operator. Otherwise, 
it IS a delimiter. 

Using the punctuation, the compiler breaks its input into a series of tokens. Tokens are 
of four types: 

1 . Keywords such as DECLARE 

2. Identifiers such as R 

3. Operators such as ** or blank 

4. Literals such as 3. 1 4 1 59266 

Each HAL/o statement is defined in terms of these toxen types. For instance, the basic 
DECLARE statement consists of the keyword DECLARE followed by an identifier 
followed by attributes. The attributes consist of keywords and literals. Like all statements, 
DECLARE ends with a semi-colon. 

Identifiers consist of variable names and labels. Tlte identifiers in the sample program 
arc SIMPLE, PI, and R. IdentifieiTi may be from one to thirty-two characters in length, 
and composed from the letters A-Z, the numerals 0-9 and the underscore. The first character 
must be a letter; the last may not be an underscore. Selection of names is entirely up to 
the user: 

DECLARE SIGMA CONSTANT (3.14159); 

is syntactically correct. The underscore may be used in an identifier to write an identifier 
composed on more than one word: DELTA_V and TIME_TO_GO are valid identifiers^ 

There is a trade-off in identifier lengths: Very short identifiers, such as RLNGL, make 
for crvptic code, whereas very* long identifiers, such as CURRENT,. VEHICLE_ROLL_ 
ANC lE, make it hard to find operators and match up parentheses in expressions. Identifier 
may not be started on one card and continued on the next. Since the card boundary serves 
as a delimiter equivalent to a space, long names can be awkward. 

HAL/S does encourage self-documenting programs through meaningful identifier names. 
This author's preference for a mixture of long and short names is generally displayed 
throughout this manual. Sometimes this text uses underscores and numerals in identifiers 
to distinguish them from key^ rds. The HAL/S keywords cannot be used as identifiers. A 
few to be careful of arc: SUM, IN, SET, LINE and TRACE, None of the keywords are less 
than two characters. 
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Tlio third type o( token is an operator. HAL/S includes logical and character operators 
as well as the arithmetic operators listed m Section 2.2. 

The fourth type of token is a literal There are arithmetic, character, and bit literals, 
though only arithmetic literals are of concern now. Throughout this book, arithmetic 
literals arc called simply numbers 

While HAL/S has both integer and scalar darutvfh's. it does not distinguish between 
integer and scalar numbers. *W’ is completely equivalent to "3.0”. "3.1 41 59" is completely 
equivalent to "314159/100000", and to "3 141 59i:-5”, "3l4I5.9t:4" and so forth. The 
character I- is used in numbers to indicate scientific notation. Tlie form "3141591-.5" is 
interpreted as 

.M4I5‘> \ 10 ^ 


or 


(314159H0**( 5). 

Thus, numbers can be written as a sequence of digits with or without a decimal point, 
optionally followed by the letter K and one or more digits. The minus sign { ) is used for 
negative humbers and exponents. The MAL/S L.anguage SpeciUcation describes the use of 
other exponent letters to specify powers of two or sixteen instead of ten. 

No blanks may appear in a number, blanks must separate numbers from adjacent key- 
words. identifier?* and literals. 

The statement, 

DKC LARb PI CONSTANT(3+l/7>; 

IS completely valid. "3 + 1/7" is considered a number rather than an expression. An ex- 
pression which contains only numbers. CONSTANTS, and the basic arithmetic operator?; is 
said to be computable at compile-nme. Instead of generat ng code to evaluate such an 
expression at runtime, the compiler will convert the expression to a simple number. Only 
the value is kept at runtime; the addition and division in "3 + 1/7” are performed during 
compilation. When this manual referx to numbers, any expression hich can be reduced to 
a number during compilation is included. 

In summary, a IIAL/S program begins with a labeled PROGRAM statement and ends 
with a CLOSE statement. In between is a declare group followed by executable statements. 
Tltese statements may be arranged in any convenient way on successive cards or lines, pro- 
viding that column one is blank. All statements must end with a semi<olon. Bt?th comment 
lines and comments within statements are allowed. Statements consist of a sequence of 
tokens separated by blanks or other punctuation; the tokens are of four types; keywords, 
identifiers, operators, and literals. Most of the HAL/S keywords and operators will be de- 
scribed later. Tlie rules for forming and recognizing tokens of each type have been pre- 
sented here. 
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Exercises 

2.1 A Some of the following are valid HAL/S tokens; some arc not. Identify the valid 

tokens* and state the type of each. 

Note: Appendix D contains a complete list of HAL/S keywords. 

a) TEST^TIME 

b) CHARACTER 

c) TRY AGAIN 

d) 7.1E-14 
c) X 

0 lABC 

g) DEC^LARE 

h) INITIAL 

i) ALTITUDE., 

j) TRUE 

k) 4,2.1 

l) QUITE^A_LONG^STRING 

m) 10000000 

2.2 ARITHMETIC EXPRESSIONS 

Like most high order languages, HAL/S allows numeric computations to be specified 
in a form very similar to ordinary mathematical notation. For instance, the equations below 
should be quite recogniTable in their HAL/S forms: 

AREA^CIRCLE « PI R**2; 

AREA^TRIANGLE » 1/2 B H; 

PYTHAGORUS * (H**2 - B**2)**(l/2); 

AREA^TRAPEZOID « H<A+B)/2; 


/•CIRCLE*/ 

/♦TRIANGLE*/ 

/♦PYTHAGORUS*/ 

/♦TRAPEZOID*/ 


This example illustrates the forms of some familiar equations in HAL/S. 

This example shows four assignment statements as well as a number of arithmetic ex- 
pressions. The assignment statement is much as in other languages: the value of the expres- 
sion on the n*dit of the equals sign is assigned into the variable on the left. This section is 
primarily concerned with the evaluation of the expression on the right hand side. 

The example rhows addition, subtraction, multiplication, division and exponentiation 
operators. As in mathematical notation, multiplication is indicated by adfacent factors: no 
special character is used to stand for multiplication. Sometimes the blank is referred to as a 
multiplication op^^ator, since adjacent identifiers must always be separated by a blank. 
However, it is the adjacency and not the blank that indicates multiplication. For instance, 
upj can be written without a Wank as “PI(R**2r or “(PI)R**2** or R(P!)R”. 



Reading, Writing, and Arithmetic 


The other basic operators contain no surprises. The hyphen or minus sign is used for 
both subtraction and negation. Parentheses control the order of valuation in the usual way. 
The table below shows the * ^ajor differences between HAL/S and mathematical conventions: 

Mathematical Notation 

HAL/S Expression 

ab 

a b 

2x 

2 X 

nx*'”* 

n x*^(n- 1 1 

-(c+d) 

(c+d) 


(a+b>/(c-d)>**2.5 

xy 

-2ab 

< y)/(-2 a b) 

a(x+l) 

1 (x+l) 


Mathematics defines several conventions to reduce .he need for parenthesis in expres- 
sions. For example, 

A X + B Y 

is always interpa*fed as the sum of two terms, (A X) + (B Y) rather than as the product of 
three factors, A(X+B)Y. These conventions are stated in terms of i\w ordtr of evahtation of 
various constructs. In particular, multiplication and division are performed before addition 
and subtraction. HAL/S incorporates these rules by defining a precedence for each operator, 
as shown below : 


Precedence of Operators 


G Vn this precedence, the expression: 

AX- + BX C 

is evaluated correctly when written in HAL/S without parenthesis: 
A X**2 + B X C. 


exponentiation first 
multiplication 
/ division 

■f addition 

subtraction 

Note that multiplication is done before division rather than at the same time as in some 
languages. 



* 


r 
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The equivalent form with parenthesis is: 

((A(X**2)) + (B X)) - C 

If strict left-to-fight evaluation was desired, this could only be indicated by parentheses, as 
shown below: 

((A X)**2 + B)X - C. 

When an expression contains several operators of the same precedence, they are 
evaluated from left to right for all operators except for exponentiation and division. These 
are evaluated right to left. To see why this is true, consider the definitions below: 

..yz « x<Y^> 


C B 

The first expression is written: 

X**Y**Z. 

IfX*4, Y = 3,andZ*2,thisis: 

4**3**2 = 4**(3**2) => 4^ 

if the natural sequence was overridden via (4**3)'**2, 64^ would be produced. Likewise, 
A/B/C is naturally interpreted as A / (B/C), which is indeed equal to A(C/B). 

Other operators of equal precedence are evaluated from left to right. Addition and 
multiplication are commutative and associative, so the order does not matter except for pre- 
cision analysis. Subtraction, however, is neither, and the order of evaluation affect the 
results. The HAL/S expression, 

A - B - C 

is interpreted as (A-B) -C. 

The distinction between numbers and expressions is somewhat blurred in HAL/S. As 
already stated, any expression that can be computed in advance (during compilation) can 
be used wherever a number is required. Furthermore, a negative number (e.g., -1) is 
actually an expression, containing the number 1 and the negation operator. The presence of 
a blank between a minus sign and a literal is irrelevant. “-2 A** is the product of A and -2, 
but *'A -2** is a subtraction even though there is no space between the minus sign and the 2. 

The construct, *'A/-2** is illegal. The minus sign Is seen as an operator, and HAL/S 
never allows two operators in succession. This division could be written u “A/(-2)” or 
more sensibly as ‘*-A/2**. 
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To summarize precedence rules. 


HAL/S has defined the precedence of each operator to correspond to the usual 
mathematical conventions. BUT WHtN IN DOUBT, PARKNTHFSIZE. 


Arithmetic expressions may contain a variety of arithmetic types: Integers, scalars, 
vectors, and matrices. If one variable of each type is created as follows: 

DECLARE S SCALAR; 

DECLARE I INTEGER; 

DECLARE V VECTOR; 

DECLARE M MATRIX; 

The following multiplications and assignments are legal: 

S * V.V. 

V = V*V; 

V = V M; 

M = V V; 

M M M; 

V = V S; 


They are, respectively: the dot (innerl product, the cross product, the vector matrix prod- 
uct, the vector outer product, the matrix product, and the scaling of a vector and a matrix. 
They produce results of the types indicated oy the target variable (left hand side) of these 
assignments. This is a necessity rather than a coincidence: Every expression has a datatype 
and assignments can only be made between like types. 

Identical data types are not required. Since integers and scalars may be used inter- 
changeably, the following combinations are also legal: 

I » V.V; 

V » V I; 

M = M I; 

as are all eight combinations of integers and scalars alone. This, however, exhausts the 
combinations that can be written with the four variables declared above. Not all operators 
apply to every combination of datatypes. For instance, the addition of a vector to a matrix 
is not permitted. In general, operations which are undefined in mathematics are illegal in 
HAL/S. 

By default, vectors and matrices are of size 3 and 3x3. Section 2.3 explores other pos- 
sibilities and defines the operators in more detail. At this point it suffices to say that 
wherever a variable of a given type is allowed in an expression, a parenthesized expression of 
the same type is also allowed, e.g„ 


V - VMV S)M); 
M - M(V V); 








2 2.1 A Compiled Example 

With the names (I. S. M, and V') used in the previous section, the lyjv of each >ariable is 
apparent. Most appheations would retpiire a better notation this is provided by the com- 
piler as show n below: 


rt 

tt 

M 

M 

M 

« 

I 

n 

E 

rt 

E 

M 

E 

n 

E 

M 

£ 

H 

n 


OATATtPES: 

prcc-pam; 

OtCLAPC S SCAIAR! 

OECUBE 1 integer; 

DECLARE V vector; 
0ECLAP£ h matrix: 

s s V . v; 

V = V • v; 

V S V M; 

• - - 
ft a V v; 

• urn 

rt = M m; 

V = V 5; 

CLOSE datatypes; 


TIus listing was automatically produced from the preceding HAl./S statements by a 
HAL/S compiler. No changes to the sourct were made. The asterisk and hyphen overmarks 
appear only in the listing; they are not coded by the programmer, Tlie compiler indicates 
the type of each variable in a compilation via the o\ermarks shown below* 

Integer and Scalar none 

Vector 

Matrix ♦ 

Character 

Bit and Boolean 

Structure + 

Other differences between the source and the listing are. 

1. Trie compiler controls spacing, indenting, and the arrangement of statements on 
lines in the listing. The source fonnat is irrelevant. 

2. Statements in the listing always appear in multi-line format, with raised exponents 
and lowered sub cripts. 

The compiler marks each line of the listing with an T. M. or S to indicate exponent, 
main and subscript lines. These characters, as well as **C** for comments, appear outNide the 
box in the examples. Some blank lines have been removed, and DTCLARF statements arc 
sometimes used in several examples without being repeated. Any HAL/S code which appears 
in a box like the one preceding is extracted from an actual listing: It has not been re-typed 
and is therefore free of am syntax errors. 
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The standardized listing format produced by HAL/S compilera isolates the reader of 
a program from the style of its author. The same listing will result whether the source was 
entered with minimum spacing on as few lines as possible, or was entered one token ki' line. 
As a result, the listing format is a reliable source of information about a program's structure, 
independent of individual programmers. Since the indenting in the listing is re-computed at 
each compilation based at the flow control statements in the source, it is always up to date, 
and changes to the source can be made without undue concern over spacing. 

This completes the discussion of HAL/S source and listing formats. More information 
about arithmetic data will be needed to proceed with the topic of arithmetic operations. 

Exercises 

2. 2 A Write HAt/S exprt dons equivalent to the following mathematical expressions. 

a) ax+by+cz 

b) “ii +_iL 

c e+f 

c) 2"“' 

~\ 

il) x^-3x*+3x-l 

tf) (X 1)^ 

n lo^y 

g) d0>‘)>' 

h) V (V, W are vectors. * * * means dot product) 

V V 


Tlie left-hand column contains mathematical expressions that nvt incorrectly coded in 
HAL/S in the right-hand column. Find the errors and rewrite each expression 
correctly. 

a) mx+b 

M*X>B 

b) 2(x+l) 

2X+I 

C) 

X**(-2.5N) 

d) 


«) !£ 
bd 

AC/BD 
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2.3 DECLARING DATA 

The example below is a declare gr^up which shows the three different lorms of DE* 
CLARE statements: 


H 

OCCIARO: 

n 

Pft’OGRim 

n 

OCCLAPE COUNTER INTCCCR; 

« 

DECLARE VECTOR, 

n 

POSITION, VELOCITY, TOROUl; 

n 

DCCLARr NEW CO OPOS HATRZX, 

n 

SPEED SCALAR, 

n 

M INTEGER, 

n 

WXr.’D.FCRCE VECTOR! 

n 

CLOSE DEC PES: 


The first form is the simple DECLARE statement used previously. The next two forms are 
for convenience in declaring many variables: the effect is the same as a number of simple 
declare statements. The second form is a factored declare statement. It is distinguished by 
the appearance of attributes before the variable names. The attributes apply to all of the 
identifiers in the list. This example creates three 3-vectors. 

The third form in DEC LA RE 3 is a compound declare statement. This form is used 
either to avoid re-typing the word DECLARE, or to show that a group of variables are re- 
lated. This grouping capability can aid i'l the attempt to document a program in the code as 
well as in the comments. 

Like all HAL/S statements, declarations may be entered in free format. The example 
above shows how the compiler arranges the tokens in the listing. 

The simple declare statement consists of DECLARE, a variable name, and the attributes 
of that variable. The factored declare statement consists of DECLARE, a set of attributes, a 
comma, and a list of identifiers to which the attributes apply. The compound declare state- 
ment consists of DECLARE and a list of identifier-attributes pairs, separated by commas. 

The three forms of the DECLARE statea^ent are for convenience and documentation. 
A variable of any type can be created using any form, and the form of declaration used does 
not affect the way the data is allocated or referenced. 

The attributes of an identifier consist of its data type, precision, dimensionality, initiali- 
zation, lock group, and so on. The only attribute that is required in a declare statement is 
the data type. Several other attributes are described in Chaplets three and six. The arithme- 
tic data types are described below. 

The INTEGER type is used for counters, indexes, status indicators, and other applica- 
tions where a variable's domain is limited to the whole numbers. Integers generally occupy 
less storage than scalars and can be operated on more efficiently. 

SCALARs correspond to the real numbers. They are generally stored in floating point 
format although this is not a language requirement. In any case, they can represent numbers 
to "n** d^ts of precision, where n is constant for a given implementation. In a floating 
point unplementation, scalars may trade-off precision for a greater range by representing the 
number at a fraction (mantissa) and an exponent (characteristic). 
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The VECTOR t> pe denotes a vector of scalar quantities, such as a position in Cartesian 
coordinates. Vectors can he of any length from 2 to an implementation dependent limit. 
The VECTOR keyword is followed by a parenthesized number to explicitly Npecify length: 
VECTOR(2), lor example, denotes a vector with two components. The VECTOR keyword 
alone is an abbreviation of VECTORO). No distinction is made between row and column 
vectors. 

The MATRIX type denotes a matrix of scalar quantities, such as a linear transformation 
on >ectois. The row and column lengths of matrices can vary between two and an imple- 
mentation defined limit. The MATRIX keyword is followed by two numbers separated 
by a comma and enclosed in parentheses to explicitly specify row and column lengths; 
MATRIX(4,5), for example, denotes a 4 x 5 matrix. The MATRIX keyword alone is an 
abbreviation of MATRIX0.3). 

A VECTOR(n) quantity can he multiplied by a MATRIX(x,n) quantity yielding a 
VECTOR(x) quantity. When x * n * 3, this can serve as a coordinate transformation since 
each component of the resulting vector is equal to the dot product of the onginal vector 
and one column of the matrix. 

A MATRIX(x,y) quantity can be multiplied by a MATRIX(y,z) quantity yielding a 
MATRlX(x,z) quantity. The inne; dimensions must match. The exponentiation operator 
can be used to invert or transpose 5 r.iatrix or to generate the identity matrix. The cross 
product (*) only applies to 3-vectors. The dot product (.) applies only to vectors of equal 
lengths. Addition, subtraction and assignment require identical dimensions. 

Real numbers can aiso be expressed by employing the FIXED data type. In this repre- 
sentation, only the fractional component of the number is actually stored. The exponent 
is specified in the declaration and remains constant for the lifetime of a variable. The 
VECTORF and MATRIXF data types correspond to VECTOR and MATRIX, but contain 
fixed components instead of scalars. These three data types (FIXED, VECTORF, and 
MATRIXF) will be described in more detail in Chapter 14, and will therefore be dtscusMd 
in greater depth along with the other four arithmetic data types. 

These definitions of the four arithmetic data types are consistent with standard mathe- 
matical conventions. Data type is the most important attribute because it determines which 
operations may be performed on the variable. 

Another important attribute of variables is initialiration. The INITIAL attribute speci- 
fies the value a variable will have when the program is Orst loaded into computer memory. 
Its form is shown below: 


n 

n 

H 

n 

N 

n 

n 

H 


INITIAL. ANO.CONSTSHT I 
matim 

OIClAffrX KAUM tNiriALfail 

DlCLAil HAX.tmO SCALAt INITJALf SAgMU 

occutK riiT.To.nmt scAiAt coNgriNm / geagii 

Oicuac SfC.TO.Nff CONSTAMTUt ISglH 

DCCUai hAX.K«l XNITIAUlApOa rilT.TO.NIilf / SCC.TO.NgU 






The (‘ONSTAN T attribute also eauws irntiali/ation When an Htentiricr has the t'ON- 
STANF attrsbuie, its saluo cannot he changed An> attempt to as.\ign into it resiiltx in an 
error message 

In other respects. INITIAL and C’ON.S^TANT are the same. Both are followed by a paren- 
thesized value to which the identifier is initially set. Var’jbles of any tyjv may be initiah/ed 
Tor integers and scalars the value must be a number As the example indicates, th.s includes 
both arithmetic literals and expressions which can be evaluated at compile time. Since the 
value of a (’ONSTAN I canns>t be changed, compde *irne expressmns may contain references 
to previously declared integers and scalars with the C'ONSTANT attribute, 

This example shows two new abbreviated forms SCALAR is the default data type It 
can be omitted, as in the fourth declaration of the example. Another omission is in the 
('LOST >tatement The program name is optional, although goou reawms for keeping it will 
be seen when nested code blocks are intrinluced m Chapter Seven. 

A vector or matrix is miliah/ed in much the .same way as an integer or scalar The 
essential difference is that a value for each of the vector or matrix components isstH'cified 
in parentheses following the word INITIAL or (’ONSTANT, The values are separated by 
commas and are sometimes referred to as the mtfui Hu 

Tor example, the declaration 

DTCLART VK T5 VTCTOR(5) INI TIALi:.8.l 3..; 7.0.0), 
defines a vector with the following initial value 

": 8 " 

u 

3 7 
0 

. 0 , 

Tach element of the vector w imtiah/ed to the corresponding value in the initial list, Ihe 
first element receives the first value, the second element the second value, etc. 

f ^ Tor a matrix, the elements ai;^ imtiali/ed to the values in the initial list as follows the 

^ / first row IS imtuli/ed to the first values in the list doing enough of them to fill one row ), 

then the second row is initialized, and so on. The declaration. 

DICLARI C(X)RI)MAT MATRI\t3.3) INIITALlI 7.:.0 *,8 :.M,! I. 8 VT8M. 


defines 
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indicate the order in which the matr?^ cor. ' f** rirc assigned from the linear 
series values in the initial lift. 

The imputuni ^ to remember M r^ \ i. -t/ation is that the order in which 
vslticf are iw?«gne<' .» /?’ *o^ * Mtfi not bv colu, > • ' ^ u^w*by«row order also applies to the 

way matrix componoms are read and prtntc ' * ^k.AD and WRITF statements, and to 

arrays and the MAf RIX shaping tunct;ton, wlM t>e shown later. This convention is com- 
monly called row-maior order. 

Writing an initud list as in the above CNdn^pics can be cumbersome if the vector or 
matrix is large. HAL/S offers some sh'>rtcu(s. 

I . If only one value is specified in the initialization attribute, alt of the components 
of the vector or matrix are initialized to that same value. For example: 

DECLARE V VECTORO) INITIAUIO), 

M MATRIX(3,4) INITIAMO); 


'io“ 


0 0 0 0* 

10 


0 0 0 0 

JO 


0 0 0 0, 


2. If several successive values in the initial list are identical, the programmer can specify 
^ a npttitUm ftKior and write the commem component-values just once. The repeti- 
tion factor is a number indicating how many times the value is to be repealed, and it 
is separated from the value by a # symbol. Using repetition factors, the tnitialuatkm 
attribute, 

INITUUI.5.I.5,I.5.2.7.:.7i 
may be written more succinctly as. 

INITIAU3#I.3,2#2.7) 

which is entirely equivalent to th ‘.Mr^er form. The repetition factor may also 
precede a parenthesized, comma-sepjrat^:d list of values, in which case the whok 
list is repeated. Repetition factors may be nested to form a variety of patterns. For 
example, a 3x3 matrix may be initialized to the identity matrix by the initialization 
attribute, 

lNITIAL(t.:#(3#0,l)) 

3. If only some components are to be initialized there are two ways to achieve the 
desired affect. 

a) A repetition factor may be specined wiikoul an accompanying value, in which 
case the specified number of components are passed over and left uninitialized; 
or 

b) the Iasi item in the initial list msy be an asterisk, which indicates that the re* 
mainhig components are not to be Mtklized 

For example, the statement, 

DECURE A MATRIX(34> lNITIAUI,2J,4;tlJ,63#X)M,^>; 

creates the matrix: 
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I X X 8 6 .fW 

[.09 .09 X X X 

where x indicates an uninitialized comi^nent. 


The symbob # and * are used in vector and matiix initial lists as well as in other con* 
structs. They can oi»o be used in the initial list in the declaration of an array oi structure and 
in shaping functions. As described later, shaping functions al'ow the cr eation t»f vector and 
matrix quantities as in the following statement: 


M - MATRIXn.X3#0.l)); 


Another attribute which b usually omitted, but b sometimes useful b RANGE, 

DECLARE I INTEGER RANGE (1 to 100); 

DECLARE V VECTOR ( 100) RANGE ( -.999 to . 999 ); 


If I b always used as a subscript for VECTOR V, it only takes on values from I to 100. 
In thb example, the elements of V only assume values from -.999 to .999 in^ ' .sbe. Spec* 
ifying RANGE may or may not generate run time checks, depending upon the implementa* 
tloti. Some implementations may also use RANGE to pack variables and save storage within 
DENSE structure nodes. 


All HAL/S variables must be d'^fined before they are referenced. The DECLARE 
statement b the most common means of defining an identifier, but ot^er possibilities 
such use of the TEMPORARY statement will be introduced in later chapters. While there 
are additional data types and attributes, all of the forms of the DECLARE statement have 
been presented. 

Exercim 

2 3A Write declare statements corresponding to the table below. 


IDENTIFIER 

TYPE 

INITIAl/CONSTANT 

X_ DELTA 

SCALAR 

INITIALIZED TO 1 

Y.DELTA 

SCAUR 

INITIALIZED TO 1 

riME_DELTA 

CONSTANT 

value I 

DELAY^ FACTOR 

CONSTANT 

VALUE 5 

TEMPI 

SCALAR 


TEMP2 

SCAUR 


TEMP3 

SCAUR 


COUNT 

INTEGER 

INjnALIZEn to 1 

POINT ^ A 

VECTOR 


ORIGIN 

CONSTANT 

VECTOR 

VALUE fODd)) 

/ 

TRANSFORM 

MATRIX 

INITULJZEDTO 1 
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2A tXECUTABLt STATEMENTS 

Ihiii chapter stresses the HAL 'S source .imi hsiini* formats ami the antlimeiie operators 
and data types Lnough executable stateme’Us have been introiiueed to write simple pro- 
grams. The information about executable staiemi'nts whu i will be assumed in later chapters 
appears below 

The aKstgnmcti: sfatentent consists of onv* or more target variables, an = sign, and an ex- 
pression. To More the value of an expression into several vanables at once the nwinplc u\' 
stgnmeni is used, as in. 

I, J. K 0; 

A, B. C = (A+B+n/3; 

tMch target variable must be of the same type as the expression on the right. Conversions 
between integer and scalar, and single and double precision are automatically performed, 
however. 

The operands to the KfiD statement are a parcnthe.si/ed channel number and a list of 
variables, e.g., 

READ(5) ALPHA, BETA. GAMMA; 

The channel number selects one of several external devices from which the variables arc to 
be read. Tlie data must be in a standard character format, so no additional control param- 
eters need be given. Chapter eight describes other options in the READ statement. 

The WRITE statement also includes an integer channel number. Its remaining operands 
may be expressions of any type. In the statement. 

WRirE(b) M, V. M**( I). M*n l)V: 

two matrix and two vector expressions appear. Matrices can be raised to any integral |H)wcr 
1 ; minus one results in the “inverse’’ operation. The output format is described in (Tiapter 
Eight along with more details of the READ. READALl. WRITE and FILE statements. 

The PROORAM and CLOSE statements have been described in this chapter. 

Most of the remaining HAL/S statements alter the sequential flow of control. Utese in- 
clude statements for conditional execution (Chapter 4), looping (Chapter 5). and subrou- 
tines (Chapter 7). Error control (Chapter 10) and real-time (Chapters 1 1 and 1 2) statements 
complete the set. 

Chapter three describes additional foniis of the arithmetic expression. 
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End of Chapter Problems 

The following program will compute the roots of the polynomial 3X"+4X lOaiul 
print them out: 

ROOTS PR(K,RAM. 

DKLARl SCALAR. 

KOOTl. root:; 

ROOTl = { 4-114**: 4 3 I l()H**0.5)/6: 
root: ~ ( 4 (4**: 4 } ( I0))**0.5l/6, 
wRin.(O) RooTi. root:. 

CLOSf ROOTS; 

Modify the program to read in three scalar values A. B, and C' from channel 5. and 
compute the roots of A\“+BX+C. 

Note' Assume the input values will yield real roots. 

A ball is tossed straiglil outward from a heiglu of 1 10 feet with a horizontal velocity 
of 4 ft sec. Each time it hits the ground, it rebounds to 35^' of its previous height. 

Write a HAL/S program to compute the time until the ball hits the ground for the 
third time, and how far it has tra\cicd horizontally in that interval. 

The applicable equations of motion are. 

I. Tor an object dropping from heiglit H to the ground or bouncing from the 
ground to height H, in time T, 



where g * 3: ft/sec^ is the gravitational acceleration. 

:. lionzontal motion is independent of vertical motion, so if D is horizontal dis- 
tance traveled in time T at velocity V. 

D» VT 

An artificial satellite moves in a circular orbit of radius 4000 miles, W rite a HAL, S 
program to compute how long it takes to make I revolution and write the result on 
channel 6. 



Remember. P = /(MASS Ol- hARrH((.670x 10 

Say the MASS OP l-.ARTH is: 5. *>83 x 10*^ grams. One mile equals I60'J.34 4 cm. 
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2D Lei ax + by = e. 

cx + dy ~ f, 

be a syst»Mii of 2 equations in 2 unknowns. 

Write a HAL/S program to compute the solution of the system. 

The inputs a. b, c. d. c. and f are available on channel 5, and the solution x. y. 
should be written on channel 6. 

We are guaranteed that a solution does exist. 

Remember, Cramer's Rule states 

= v= 

^ ~ ad be ^ ad be 


...» 


f 

I 
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3.0 MORE BASICS 

This chapter describes additional aspects of the arithmetic expression, including sub* 
scripting and function invocation. One new non*executabIe statement is also presented, so 
that only new data types, and executable statements other than assignment are left to later 
chapters, 

3.1 BUILT-IN FUNCTIONS 

In addition to the arithmetic operators. HAL/S provides a set of built-in functions. 
When the name of one of these functions occurs in an expression, code is generated to in- 
voke the corresponding library routine. Built-in function names are HAL/S keywords and 
the nin-time library routines are supplied with the compiler. Examples of several useful 
buiit-in functions can be given with the aid of a parallelogram: 

0 


h 


B 

The size and shape of a parallelogram are uniquely determined by the lengths of two ad- 
jacent sides and the angle between. These scalar quantities wilt be called LONG, SHORT and 
ALPHA. 

Taking the lower left comer as the origin of a coordinate system with an X axis ex- 
tending along B, the following program computes the coc rdinates of the comer points: 


n 

n 

M 

M 

n 

H 

H 

t 

n 

t 

ri 

8 

I 

n 

s 

E 

n 

E 

n 
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C09NEaS: 

rftOGPArii 

OECURE SCALAR* 

uniSi SHORT* alpha; 

DECLARE VECTOfftE). 

AD. £C. CO. da; 
REA0I5) LOtlS. SNORT. ALPHA! 

AD > o; 

DC ■ VECTOR ILOKd. 0)1 
Z 


DA * VECTOR I SHORT COSIALFHAI* SHORT SXN( ALPHA! )! 
t 


CO > SC ♦ oa; 

HRITE(S) AD. DC* CD* DA! 
CLOSE CORNERS! 
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Tlic first assignment sets both components of the vector AB to zero. An> arithmetic 
variable may be assigned from the literal zero. Zero is the only such special case: it may be 
considered a typeless literal. 

The second assignment illustrates use of the VECTOR shaping function. The expression 
VECTORS (LONG.O) represents a 2-vector ose components have the values LONG 
and zero. 

In the third assignment, the arguments to the VECTOR function are arithmetic ex- 
pressions. As a result, the first component of DA is set to the product ot the lenutlj of the 
short side and the cosine of the angle ALPHA. The **Y“ component of this vector is com- 
puted similarly, except that the sine function is used. 

The fourth assignment merely illustrates the "parallelogram rule" for vector addition. 

SIN and COS are algebraic built-in functions, listed in Appendix A. This category in- 
cludes SIN, COS, TAN and their inverses (e.g., ARCSIN) and the hyperbolic forms (e.g., 
SINH, ARCCOSH). Also included are LOG, EXP, and SQRT. For argument X, the latter 
functions are equivalent to Log^ (X), e^. andV^ 

Each algebraic function returns a scalar value. The arguments may be any integer or 
scaler expression. An algebraic function name with its parenthesized argument is itself a 
scalar expression. Thus, function invocations may be nested, as in: 

ARCTAN(S1N(X>/SQRT(1 -S1N(X)**:» 

A function's arguments are always enclosed in parenthesis; as usual, the evaluation of an 
expression always starts at the inner-most parenthesis. In the expression above. 
SIN(X)**2‘* 1 $ evaluated as "I ~ ((SIN(X))**2)": The function invocation may be viewed as 
of higher precedence than exponentiation. Another interpretation of the same rule is that 
the value passed to a function is completely specified within the parenthesis; operators cut- 
side the parentheses apply to the value returned. 

Before continuing to other classes of built-in functions, consider some general rules: 

1 . No built-in function modifies any of its arguments. 

2. A function name and its argument list together comprise an expression of some data 
type. 

3. A function argument may be any expression of the specified data type. 

4. All trigonometric functions receive and return angles in radiatts. 

5. Invalid arguments (e.g., SQRT(- 1 )l are indteatev! via runtime errors, as described in 
Chapter Ten. 

The parallelogram example also used the VECTOR shaping function. Shaping functions 
perform conversions. One function per data type is provided; The arithmetic shaping func- 
tions are VECTOR, MATRIX. INTEGER and SCALAR. The VECTOR and MATRIX func- 
tions will accept any number of arguments, each of which may be of any arithmetic typo. 
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The second assignment statement of the example might be entered as. 

BC « VECTORS:aONG.O): 

This statement contains the first subscript used so far. Whenever the VECTOR function pro- 
duces a vector of dimension other than three, ihe dimensionality of the result must be speci- 
fied as a subscript to the function. HAL/S uses the dollar sign (5) and a parenthesized list of 
expressions to indicate a subscript: when the subscript is a single token, such as 2 in the ex- 
ample, no parentheses are needed. 

The MATRIX shaping function may also be subscripted: a 3x2 matrix can be produced 
from the numbers 1 - 6 by : 

MATRIXS (3,2) ( 1 .2.3,4.5,6). 

A three-by-three matrix can be produced without a subscript, as in: 

MATRIX tl,3#0,l.3#0,l). 

The number of values in the argument list of a shaping function must match the sub- 
script if one is supplied. Otherwise, the number of values must be three (for a vector) or 
nine (for a matrix). If supplied, the subscript must be either a single compile-time expression 
indicating the length of a vector or two expressions, mdicat! >g a pair of matrix dimensions. 
The product of these numbers is the number of components in the matrix. The dimensions 
of any vector or matrix expression must be known at compile-time. 

It is the total number of components in a shaping function argument list that must 
match the subscript. For instance, given. 

DECLARE M MATRIX, 

V4 VECTOR (4). 

V2 VECTOR (2), 

M22 MATRIX (2,2). 

All of the following are legal (since each list has 9 components): 

M - MATRIX (V4.M22.0): 

M - MATRIX (V4.0,V2,V2): 

M » MATRIXS (3,3) (M22.2#V2,0); 

Whenever a data aggregate appears in the argument list of a shaping function, it is ''un- 
raveled*' in the natural sequence (i.e„ the same order as in initial lists, row-maior). The 
VECTOR and MATRIX functions see their argument lists as a linear stream of scalars. If, 
for example, X, Y and Z are three 3-vectors, then MATRIX(X.Y,Z) is a 3x3 matrix in 
which the first row equals X, the second equals Y and the last contains the values from Z. 




I 
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Shaping functions are the only class of builHns which accept a variable length argument 
list. Others have a fixed number of argun.cnts, each of a specified Jata type. As stated 
above, the functions in the “algebraic'’ class all take one scalar argument and return a scalar 
result. However, one basic rule in HAL/S is that wherever a scalar is expected an integer may 
be used, and vice-versa. In the assignment below. 

DECLARE I INTEGER INITIAL (4): 

I = TAN (I); 

first I is converted to a scalar, then the tangent is taken and finally the result is rotwdt’d to 
the nearest integer before assignment into I. 

Rounding is defined in the usual way: INTEGER <3.51 = 4, INTEGER ( 1.4) = 1. 

and INTEGER (.4999) = 0 As indicated, there are INTEGER and SCALAR shaping func- 
tions analogous to the VECTOR and MATRIX functions. Since integer and scalar literals 
are wntten straightforwardly, and integer/scalar conversions are automatically performed, 
the INTEGER and SCALAR functions are less often needed than VECTOR and MATRIX. 
More applications of these functions will arise after arrays and non-arithmetic data types 
have been introduced. 

Rounding can also be performed by the ROUND function; this function allows explicit 
rounding without using an integer variable, as in: 

DECLARE SCALAR. OLD, NEW; 

WRITE(6) ‘CHANGE IS\ ROUND(IOO(NEW-OLD)/OLD). 

•PER CENT’; 


Character strings are described in chaptf* iglit; character literals, such as ‘per cent’, are out- 
put unchanged by the WRITE stateme OLD=3 and NEW=5, the statement above would 
pro; >;ce: 


CHANGE IS 67 PER CENT 

The arithmetic functions include ROUND. TRUNCATE, FLOOR, and CEILING. The 
distinctions are shown in the following table: 


ROUND (X) 

X « .3 
0 

.5 

1 

^1.7 

-1.3 

'I 

1.6 

TRUNCATE (X) 

0 

0 

-I 

-1 

1 

FLOOR (X) 

0 

0 

_ ^ 


1 

CEILING (X) 

1 

1 

-I 

-1 

2 


In words, TRUNCATE ignores the fraction, FLOOR always rounds down, and CEILING 
always rounds up. These functions always return an integer result. 
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The arithmetic class also includes ABS (absolute value) and MOD (modulus). The re- 
sult returned by these functions is of the same type as their argument(s). If the two argu- 
ments to MOD are of different types, the result is scalar. 

The remaining functions in this category, DIV, MIDVAL, ODD. REMAINDER, SIGN 
and SIGNUM, are described in Appendix A. It should be noted here that the DIV function 
causes an integer division. The remainder is discarded and the quotient is returned. No 
rounding is performed. When integers appear in a quotient written with **/”, they are con- 
verted to scalars prior to the division. 

The only remaining category of functions to be discussed in this chapter is vector/matrix 


built-in functions: 




Name 

Argument 

Result 

Comments 

ABVAL 

Vector 

Scalar 

Magnitude, length 

Vector of length 1 in the 
same direction. 

UNIT 

Vector 

Vector 




V/ABVAUV) 

INVERSE 

nxn Matrix 

nxn Matrix 

Same asM*^ -1) 

TRANSPOSE 

nxm Matrix 

mxn Matrix 

Same as M*^T 

DET 

nxn Matrix 

Scalar 

Detenninant 

TRACE 

nxn Matrix 

Scalar 

Sum of diagonal elements 


n 

£ Mi.i 

i*l 


The program below illustrates some of the power and convenience of HAL/S vector/ 
matrix facilities. It first reads in four 3-vectors, X, Y, Z and V, and determines whether X, Y 
and Z span 3-space. Then it constructs an orthonormal set from X, Y, and Z yielding vectors 
Al, A2 and A3. Finally, these vectors are taken as the axes of a coordinate system, and V 
(the fourtii input vector) is expressed in them. 

in this program, the determinant is used to find out whether X, Y and Z are linearly 
independent. If they arc not, the second assignment statement (after Gram-Schmidt) may 
result in a runtime error, since unit of the zero vector is undefined. Since the problem is 
in 3-space, A3 can be computed by a trick: AI*A2 is orthogonal to both Al and A2, and 
of the length I . The transformation of V in the last assignment is conveniently done with a 
matrix; if, as in this program, the matrix is not saved, it may be more efficient to use the 
equivalent form: 


V VECTOR(V,AI.V.A2.V.A3); 
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riu* remaining Inult-in fimclions arc much ihc same as those presented here Each is 
an expression of some data type, the arguments to each are of specified types, may be any 
expression, and so forth. They will be discussed after the appropriate concepts and data 
types base been defined. 
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C 

THIS pajroAn CrnSTeuCTS AN CPTHCnPPMAl 

C 

S'”: A‘,T ^ AM TI’EN £sr*?ESSt'S 

c 

V IN IT 

M 

DECLARE VECT?0, 

M 

X. 1. r. V. Ai. a:. A3; 

E 

- - _ 

M 

Uo:TE(6) D£T(MA^Sr<(s, T» zi». 

C 

IF PESL'IT IS V. y At.*3 z PO KOT FCPM 

c 

BASIS ... E'FtCT trsC9 BELOW. 

£ 

- 

ft 

t 

At = 

c 

n 

a: a L-;iT( 1 - 1 r . All All; 

£ 

- 

rt 

A3 S Al * a:; 

« 

V = MATPIXJAI, a:» A3I V; 

n 

CLo:-c; 


E.\misrs 

3. 1 What are the types and values of the following expressions’ 

a' ROUND (ABVAUVhCTOR$:iSIN(0.5f COS(0.5)») 

b) TRANSPOSE (MATRIX! 1, 3#:.3.3.4.5,hH 

c) MATRIXS C.3) (UO.OJ.l.l) VECTORU,:,3> 

3. 1 B W'rite a HAL/S program to multiply the 3x3 matrix . 

”9 8 f 

6 5 4 

3 : l_ 

by its transpose and write the result on channel 6. 


r 
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3. 1C Translate these mathematical expressions into HAL/S 


b) tan 7 i I (trig function is arctangent (inverse tangent)) 

. vv 

c) m(rz-zr)sin0 -mrz^cos^ 

(use names like R_DOT. PHI, PHI__DOT, etc.> 



e) ln(tan(2 + I)) 

: 4 

( I n » natural logarithm ; use PI for #.) 

3.2 SUBSCRIPTS 

Subscripts arc used to operate on components of larger entities. If V is a vector. VSl 
refers to the first component. 

Any vector or matrix variable or constant may be subscripted. This is done by ap- 
pending a dollar sign (S) and a subscript expression. If the subKript expression is a single 
token, as m X$3. no parentheses or other punctuation is needed. Any expression may be 
parenthesized; XS (((3») is equivalent. Parentheses are required if the subscript involves any 
operators; e.g. V$(I-H). 

Since matrix subscripts are written with a comma (and thus are not a single token), they 
are always parenthesized, as in: 

M$(U) * M:$(M) M3$(J.I) + M2S(U) M3$(J,2) + 

M2S(I.3) M3$(J.3); 

Subscripting may be viewed as of higher precedence than the operators (’^,-,*,^*.etc.). 
Thus, VS1**2 is the square of the 1^^ component. This precedence is natural, since subscript 
computations seldom involve exponentiation. 

If a subscript expression is of scalar type it is rounded. The result must be in the range 1 
to N, where N is the declared dimension. Any integer or scalar valued expression may be 
used as a subscript. 

A single component of a vector or matrix is a scalar, and may be used in any context 
where a scalar variable is allowed. 

When an exponent contains a subscript, as in E**(VSI ), the subscripted variable appears 
in the single line (source) f.jrmat on the exponent line of the output listing: 
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In all other cases, a subscript is indicated naturally by its positioii in the listing rather than a 
dollar sign. When a subscript (or exponent) is lowered (or raised) in the listing, the outer 
parentheses (if any) are removed. In A$(B$C)**(N-1), all of the parentheses are removed: 

E N-1 

M A 
S B 
S C 

A position in 3*space can be represented by a 3 -vector in a variety of ways. The program 
below uses subscripting to convert Cartesian to polar coordimites. The results consist of 
bearing (angle from X axis in horizontal plane), elevation (angle from x axis in vertical 
plane), and total distance. Angles are in radians, distance is in the original units. 


rt XYZ^TO.TOLSf: 

M 

H OEClWt a VtCTOt; 

e 

n RiAoiS) ?i 

« 

H wmi*) ARCTANia / P )f UtCTAHtP / ABVAtl T I, AgVALiaiU 

* Z I S Z AT X 

H ClOSt XYZ,T0,F01AIH 


This program assumes that the direction of F is in the same hemisphere as the positive x 
axis. A more general solution can be written using (he ARCTAN2 function. 

One new construct appeaii in the example. F$(2 AT 1) is equal to V£CTOR$2 
(F$1,PS2): A 2-vector, consisting of the X and Y components of P. ABVAL(PS(2 AT l))is 
the distance from the origin to a point in the horizontal plane directly beneath P. 

*'2 AT 1" is one type of pattition subscript It can be used to specify a slice of a vector 
in terms of the partition width and the number of the Hrst included component. The general 
form is number AT expression. *'Numb^" is any integer-scalar compile-time expresoon, 
greater than one and less than the corresponding declared dimension. While partition widths 
must be known at compile-time, the starting component number may be any integer or 
scalar expression. 

Any partition of a vector is a vector. A partition of length N can be used in any con- 
struct where a declared VECTOR(N) is allowed. 

PS(2 AT 1) can also be written as P$(l TO 2). Here, the indices of the fbit and last 
ccmiponents to be included are given, instead of the width and the first component. 

The dimension of P^(x TO y) is l>y-x. Since the dimensionality of every vectormatrix 
expression must be prenleterminable, both x and y must be known; neither may be an ex- 
pression involving a variable. 
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Given V i. VECTOR(I0.20J0.40.S0.60.70), 

V$2 a :0, 

V$C TO 4) m (20,30.40). 

V$(3 AT 2) « (20.30.40). 

VS(3 AT VS3/I0) w (30.40.50). 

V$(4 TO #) a (40.50.60,70), and 

VS(2 AT #-l) a (60.70). 

The sharp character (#) which appears in the last two partitions means **the last**. 
V$(4 TO #) can be read as **thfc fourth through last components**. 2 AT #-lis a way of 
specifying the last two components. For the 7*vector above, any occurence of # can be 
replaced by 7. 

A subscripted vectot ts either a scalar or a vector, depending on the type of subscript. A 
subscripted matrix may be a scalar, a vector, or a matrix. If both subscripts are simple (1 J) 
the result is scalar. If one is simple and the other a partitiem (U TO #), the result is a 
vector. If both are partitions (2 AT 1, 1 TO 2), the result is a matrix. Output listing ove^ 
marks indicate the resultant of type after subscripting. 

As usual, a matrix tliat has been subscripted down to type and dimension **X" can be 
used in any context where a variable of type and dimension **X'* is allowed. 

The row of a matrix M is MS(I, J TO #). This can also be written as M$(l,*). The 
I*** cohimn Is The asterisk means •‘all of a dimension**. In every rase, it is equiva^ 

lent to •*lTO^^k^ 

Using this form of partition subscript, the elementary row operations used in reducing 
matrices can be expressed compactly: 



Continited 
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C 

I 

n 
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M 

% 
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ri 
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h 


IKCKANW »CW$ 1 ANC J: 


Ttw » n ; 


H * M ; 
!»• J.» 


w » TlttP; 

J.* 

CL09C AOWS; 


Before leivtnf the topic of lubKripting. one caution is in order. HAL/S stores ntatrkes 
in row-major order. This means that a row of matrix is stored in a contiguous block of 
memory. The scalars in a co(umn of a matrix do not occupy consecutive locations. This may 
make operations on matr^ columns less efficient than corresponding operations on rows. 
A few restrictions on the im of matrix columns (ASSIGN parameters, the input FILE state- 
ment and NAME variables) am described later. Matrix columns arc acceptable in all con- 
structs piesented so far. o 

This section has deKiihcd component subscripting. Most of the material also applies to 
array and uructurc i^ubscrip but there are some differences. These topics are discussed in 
chapters 6 and Component subscripting applies to vectors, matrices, character strinp and 
bit strings. 

The term subicripi expression has been used to stress the fact that there are forms which 
can occur only in subscripts. These are partitions. The forms A TO B* A AT B. and #tN 
are used only in subscript expressions. 

An important point to remember from this section is that the set of contexts in which 
a variable may be used does not depemf on the presence of subscripting, but on the data’ 
type which results after the subscript has been applied. 
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Exrrcbn 


3.2a For thf foUoi»**’g veclon and mathccs. 


"o" 


"lO 

1 


11 





V2 ■ 

I *9 

3 


13 

4 


14 

5 


15 



’4 ! 251 

M35 * 6 3 0 3 6 

.52 I 4 7 J 


j) (five the values of '^15(2), M225(2.l ). and M35S(2.3). 

6) (ii%e ihe values of V2SU AT 4). M22Sl*.l). and M35SI2 TO 3. 4 AT 2>. 
c) the necessary declarations and initiali/ations to ptoduce V|. V<i. M22. and 

M^5. 


3.2B Write a HAL/S program that will compute the dot proilucts of 



with each of the columns of 



leave the results tn a vector. K&.SULT X, and write the results on channel 6. 
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3 JC The diagrams below represent the values of various vectors and matrices. 

”"ll] ’'■’■■[i] 


M33 


-I : 3 

- 4 - 5 -6 

-7 8 


What values will the following code print: 


V4I = VECT0R$4(M:2); 

M:: = MATRIX$(2,2> (M33M2 AT 2, 2 AT 2»; 
WRITE(6) V4I; 

WRITE(6) M22; 

M33 * MATRIX$(3,3HV3I,V32.V33>; 

WR1TE(6) M33; 

M22 * MATRIX$(2.2HV3I,V32$2>; 

WR1TE(6) M22; 


3 J THE REPLACE STATEMENT 

The REPLACE statement provides a capability similar to the macros of other languages. 
The REPLACE statement contains an identifier (termed the replace name or macro name) 
and a sequence of characters, termed the macro text. The REPLACE statement instruct.s 
the compiler to substitute the macro text for every subsequent occurrence of the macro 
name. 

The REPLACE statement is not executable; it may only occur in the declare group. 
The following represents one common use of REPLACE: 


REPLACE PRINT BY ‘ WRITElb)”. 
REPLACE PUNCH BY “WRITE(7r; 
REPLACE CARDS BY “5 



Thf R HVt. .-I ( 'f Sfit rcmnt t J- / .< 


Any iKcurrencc of PRINT subsequent to these stateineiits will be converted to WRITF(6) 
by the compiler The RI-PLACT statement causes the compiler to substitute the rvpiacc text 
for the replace or mmro /wme wherever it occurs as a token in the followin^t source. Using 
tlie replace macros defined above. 

RIAI)t( ARDS> X: becomes RFAD( 5) X; 

PRINT X. Y, Z: becomes WRTTF(b) X, Y, Z: 

and 

Pl-NC II X. Y; becomes WRTTFf 7) X, Y; 

The macro is not expanded in the listing. Only the macro name appears. Each reference 
to a macro is automatically underlined, however: this informs the reader that a replacement 
was done in order to avoid a possible mis-interpretation. 

The leplace text is enclosed in double quotes ('*). This is the only use of the double- 
quote character in HAL/S. The replace text may be um* seifuatce oj characters not coo- 
taoima The replace name or macro name is an hien titter and follows the conventions 
described in chapter two. Since R FPL ACT- is a HAL/S statement, it ends with a semi-colon. 

The macro name is only recognized when it appears as a token, (oven. 

RI PLACI A BY r*: 


and 


DFCLARF ABU SCALAR CONS TAN T(A); 

only one rcpFiceinent is performed. The other A*s are part of keywords and an identiner. 
not complete tokens. 

Replace macros are commonly used to parameterize I/O channels, as indicated above, 
and the dimensions of variables, as in: 

REPLAC E UNKNOWNS BY 

nFCXARb AUC.MFNTFO MATRIXtUNKNOWNS.UNKNOWNS+l); 

HAL/S does not allow variables to be used for either channel numbers or dimensions, 
but since REPLAC'Fments arc done at compile-time, macro names may be used where 
numbers are required, provided the replace text is an e.xpression computable at compile- 
time. 

The compiler will process the DECLARE statement above as if DECLARE AUC^- 
MENTED MATRIX(b.6+l): had been cotied. 
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Replace text is commonly a single number, but may be any string. For example. 

RFPLACF DUMP BY ‘WRITFlO) X.Y./.(;AMMA”. 

coiiKl be a useful abbreviation while debugging, fhe ttsv of nphcc mmrns to ohhm tufc 
HAl S kvywonh is slhmair disamragcti. HAL/S was itesigned to ma\imi/e readability 
rather than '‘writeabihty". It can be very dilTicult to decipher a prt»gram m which macros 
are used inappropriately. The time spent actuall> typing a program is generally insignitl- 
cant compared to the time s|H'nt reading it. 

The program below illustrates a parameterized replace statement. Here the m icro is 
used to generate a table (for section 3.4) without writing a loop. 
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fi 

c 

M 

£ 

n 
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i 

n 

t 

M 

t 

•1 

fi 

r1 

n 


TAP If: 

r;?cr- AM; 

prpucii Lcccivi pY ••LPG(v>'iot;ic>“: 

PCPLACE rNTRHMl 8Y ’‘CRlTtK ' N, ?**IN-1 l,N/LOC?( 10 I” { 

erJTPyi.«’.»; 

t.^TRn i:ii 

ENTRY! 1m; 

EMTRYI 131 : 

ENTR>(:**»; 

fNIRYI 


INTPti 3M; 
CLOOt T.'.ri!:; 


In this example, X and N are maci!> aiguments. Wherever N appears in the replace text of 
the FNTRY macro, the actual parameiei (S. \2, etc.) is substituted. Whenever the para- 
meter. X. of the Log.^ macro occurs in the ic\;. the value 10 is substituted. 

The FNTRY macro generates an entire, statement. Note that no final semi-colon was 
placed inside the ending <tuoie; Vhis produces a better listing since a semi-colon im.al 
terminate each rcfyivmr to the macro, triggering a new listing line. 

The names of previously defined macn>s may be used u\ the replace text, as in L(Xf^ 
above. The compiler will continue to make substitutions until no macro names remain, 
before any other processing. An infinite expansion results if a macro's own name is used 
in its replace text. Statements like. 

RFPLACF X BY “X+l ‘: 

not only cause error mcs.sages. hut may abort the rest of the compilation, 

The above is a brief introduction to the HAL/S macro capability. Additional features 
and more detail can be found in the Language Specification. 
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3.4 THE PRECISION ATTRIBUTES 

Most of the material so far has been concerned with the arithmetic expression. Rules 
for fonnmg expressions from identifiers, operators, literals, and keywords have been pre- 
sented. Every expression has a data type; the type is determined by the types of the identi- 
fiers and functions used, the operators which combine them, and the order of evaluation. 
Each expression also has a precision. 

Arithmetic identifiers and expressions are of either SINGLE or DOUBLE precision. 
All previous examples have been single precision. Double precision variables represent 
values to more significant digits than single precision variables. 

Any arithmetic operation involving a double precision operand is done in double pre- 
cision. The result is also of double precision. Thus, the usual method for specifying that a 
computation should be carried out to more digits is by declaring some or all of the vanables 
to be double precision. 

The computation in the write statement below is performed in double precision. 


M PAPALIAX: 

M OECtAPE EARTH.OPBIT CONSTANT! 92. 9E6 > ; 

M OiCLAPE V£CT0O(2). 

M SFPING^READINS. FALL_R£AOING; 

N 0ECU9E DEVIATIO.'rsCALAR DOUBLE; 

E 

M PEAD(,5) SPRItiG^PEAOING. FALL_PEAOINC; 

E - 

M OEvrATION = ABVAL!SPRrHG.RE«DING - TALL.READING I / Z\ 

M WRITEIM 'DISTANCES', EARTH^ORBIT / TAN! DEVJATICN I , 'MILES'; 

M CLOSE parallax; 


This program could be used to compute the distance to a star based on its apparent 
change of position as the earth moves 180° in its orbit (186 million miles). The input data is 
a pair of angles in radians representing the star’s direction ir the Fall, and another set taken 
in the Spring. The diagram below illustrates the algorithm in 2-space: 








S-I6 More Sastcs 

Double precision is used in the example because a very large number is computed from 
a very small number using the tangent function near a zero. The double precision tangent 
routine is invoked, and the division of 93 million by the result is performed in double pre- 
cision. Thus, the expression, **EARTH_ORBIT/TAN( DEVIATION)’* is of type double 
precision scalar. The WRITE statement outputs a/i the digits of its operands. 

The arithmetic in the preceding assignment statement is done in single precision. 
Whether or not this is adequate depends on the provision of the measurements and the 
number of digits in a SCALAR SINGLE. One radian is approximately 2x10^ arc-seconds. 
If the physical measurements are accurate to the nearest half second, then six decimal 
digits of precision would be enougli.* The value of the expression is converted to double 
precision before it is stored into deviation. 

The number of digits in the representation of a scalar (of either precision) is imple- 
mentation-dependent. These numbers are specified in the User’s Guide. A rule of thumb 
for scalars is one decimal digit for every 3 1 /3 bits of mantissa. 

if the measurements have more significant digits than can be contained in a single pre- 
cision scalar, the whole program could be done in double precision: 

DECLARE VECTOR(2) DOUBLE,S,F; 

READ(5) S,F; 

WRITE(6) EARTH_ORBlT/TAN(ABVAL(S-F)/2); 

This version is written less mnemonically, and the assignment and write statements are 
combined. These simplifications have no effect on precision. 

All of the computations in this form are done in double precision. This is triggered 
entirely by the DOUBLE keyword in the declaration of S and F. Note that there is only 
one name each for the tangent and absolute value functions, whether single or double 
precision. The double precision form of a built-in function is automatically invoked when 
one or more arguments are of double precision. The value returned by a builMn function 
is of the same precision as its argument. Since ABVAL(S-F)/2 is a double precision ex- 
pression, the double precision version of TAN is selected. 

Double precision expressions are formed under exactly the same rules given for single 
precision. No restrictions apply to double precision variables that do not apply to single 
precision variables of the same type. Precision is normally specified in declarations rather 
than expressions. 


*Thit program alto auumet that the radius of the earth's orbit Is exactly 92.9E6 miles, and that the read- 

ings are made at exactly the same time of day. 
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The variables I. S, V, and M used in previous sections could have been declared as: 

DECLARF I INTEGER DOUBLE, 

S SC \LAR DOUBLE, 

V VECTOR DOUBLE. 

M MATRIX DOUBLE: 

This would not necessitate any changes to the expressions used. 

The DOUBLE attribute follows the data type in an attribute list. It may be either 
before or after the other minor attributes such as initialization, LOCK, and AUTOMATIC; 
e.g.. 


DECLARE COVAR MATRIX(5,5) INITIAL(O) DOUBLE; 

DECLARE V VECTOR(5) DOUBLE INITIAL(5#I); 

Precision applies to all four arithmetic types. Either SINGLE or DOUBLE may be 
specified in the attribute list of any integer, scalar, vector, or matrix. Since single precision 
is the default, it need not be specified in declarations. 

Double precision vectors and matrices are composed of double precision scalars. All 
of the vector-matrix operators and functions have both single and double precision imple- 
mentations. As before, double precision routines are selected when either operand is 
double, or when anv builhin function argument is double. 

Since integers, double integers, single scalars and double scalars may be freely mixed 
and substituted for each other, these four combinations typically correspond to different 
sets of computer registers or machine instructions. Conversions of integer to scalar and 
single to double are made automatically when operand types are incompatible. Since in- 
teger and single precision operations are generally more efficient, data is left in the simpler 
forms whenever possible. 

The type and precision of an expression are determined solely from the expression 
itself. Neither attribute depends on the context in which the expression is used. The pre- 
cision of the expression in an assignment statement is not determined by the precision 
of the target variable on the left hand side. In the following, ‘MOOOO N” is a single pre- 
cision expression, since neither operand of the multiplication is double; 

DECLARE D SCALAR DOUBLE; 

DECLARE N INTEGER IN1T1AL(20); 

D * 10000 N; 

The nght-hand side is of type single precision integer. It will be converted to scalar double 
before assignment to D, but the multiplication is done in single integer mode. 
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Table 1 shows the range of integers with various word sizes. If the code above is ex- 
ecuted on a computer wnich represents single integers in 16 bits, the wrong answer will 
be produced. The code can be corrected by adding an explicit precision specifier: 

D = 10000 N$((^ DOUBLE); 

The forms V SINGLE'* and DOUBLE" may be attached as subscripts to any arith- 
metic variable. In the example above, "NS((& DOUBLE)" is of type integer double. Thus, 
the multiplication is done in double precision and no accuracy is lost. 

The precision specifier may also be attached to shaping functions, as in: 

DECLARE VECTOR, VI, V2, V3: 

DECLARE M MATRIX DOUBLE; 

M = MATRIXS(e^DOUBLE,3.3)(Vl.V:,V3); 

The precision specifier precedes any subscripts in a shaping function. 

Table 1 


Range of 


# of Bits 

Integer 

# of Digits 

8 

128 

2.4082393 

i: 

2048 

3.6123590 

16 

32768 

4.8164796 

18 

131072 

5.4185390 

24 

8388608 

7.2247190 

32 

214748360 

9.6329593 

37 

3435973800 

10.837079 


Empirically, double precision algebraic routines give better performance near zeros 
and singularities than their single precision counterparts. These routines are generally 
implemented via polynomials, prefaced with code to identify the quadrant or other range 
of the argument. The tangent routine, for an argument 0 < X < tr/2, might use a poly- 
nomial of the form 

Tan X * A + Bx + CX^ + DX^ + EX^ + FX* 

If the value DEVIATION in the parallax example has the value lE-6 then the tangent 
will be: 

A + BxlO'^ + CxlO-'- + DxJO"'* + Ex 10-24 + FxlQ-^O. 

The operation X ■ X + 10 "^ x, where n is greater than the number of digits contained in 
a scalar, does not change X, 
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When two floating point numbers are adueii, the exponents are first equalized by 
shifting one of the mantissas. It is this shifting that causes the loss of significant digits. When 
two floating pomt numbers arc multiplied, no shifting is required. The same situation holds 
in fixed point, thougli any shifts required for addition and subtraction must be explicitly 
coded. 


In the parallax example, double precision allows the addition of more terms of ihe poly- 
nomial used to approximate the tangent function. Double precision generally is needed 
when numbers of greatly different magnitudes are added or subtracted, and when a large 
number of output digits are needed. The latter case is less common, since neither humans 
nor digital-analog converters can use more than a few digits directly. 

The arithmetic expression is summarized in the next section. All of the statements made 
apply equally to single precision, double precision, and mixed. Operations which reference 
one or more double precision values are done in double precision. More digits are obtained, 
at greater expense in memory and execution time. Some implementations have fixed point 
scalars; the Language Specification describes the explicit scaling tshifting) operators which 
are used in these implementations. More details can be found in the appropriate User's 
Manual. 

3.5 SUMMARY OF THE ARITHMETIC EXPRESSION 

An arithmetic expression has one of the following forms: 

1. An identifier. This may be an integer, scalar, vector, or matrix variable or constant 
of either precision. 

2. A literal. No sub-classes of numeric literals arc defined, 

3. A subscripted identifier. Partition and simple subscripts are allowed, as well as ex- 
plicit precision specifiers and scaling operators. 

4. .A function invocation. Both built-in and user functions may have zero or more 
arguments, which are themselves arithmetic expressions. Shaping functions may also 
have subscripts. 

5. A further expression prefixed bv a minus sign. Any arithmetic type may be negated. 
An expression preceeded by is allowed, but functionless. 

6. A further expression in parentheses. The parentheses override precedence rules, and 
allow scaling operators and precision specifiers to be attached to expressions. 

7. Two expressions separated by an operator. Only certain combinations of operand 
types are allowed for each operator. 

The list above is a recursive definition of the syntax of the arithmetic expression. 
Expressions may be nested via forms three through seven. 

The compiler evaluates an expression outward from the most deeply-nested parentheses. 
Within a set of parentheses* the compiler first evaluates any subscripts. Operators are applied 
to the components selected by the subscripting. 


* 


The tabic below shows the arithmetic operators \n the oriiei in which they are evaluated 
when not overridden by parentheses: 

Operators in Decreasing Precedence 

** Exponentiation. Applies to integers and scalars For matrices. 

the exponent must be either an integer or the character “T*’. 
Raising a matrix to the **T'’ power ahuu's indicates trans- 
position of rows and columns. Integer powers apply only to 
square matrices. If 1 is negative. M^^d) is equal to INVERSE 

multiplication Indicated by a blank. Multiplication is allowed between any 

two types, provided the “inner dimensions” match, Resulting 
type given by outer dimensions. 

* CToss product. Applies only to 3-vectors. The result is a 

3-vector, given by : 

Result = Vector! X tYjj" I X|Y-^,X|Y*» X-^Yi). 

The resulting vector is orthogonal to X and Y, and ot magni- 
tude (ABVAUX)ABVAUY)SIN(0». where d = the angle 
between X and Y. 

Dot, scalar, or inner product. Applies to vectors of equal 
dimension. The result is a scalar equal to the sum of the 
products of corresponding components. It also equals the 
product of the magnitudes of the vectors and cosine of the 
angle between. 

/ Division. The left operand may be integer, scalar, vector, or 

matrix. The right must be integer or scalar. The result has the 
same dimension as the left operand, but is never integer. 

~ Addition and Subtraction. If one operand is scalar, the 

other may be cither integer or scalar. Otherwise, the two 
operands must be of the same type and dimension. 

Negation. Applies to any data type. The result is of the same 
type 

Operators of equal precedence are evaluated left to right, except for exponentiation and 
division which are evaluated right to left. 

Before non-arithmetic expressions are introduced, a number of statements which alter 
the sequential How of control will be presented in chapten four and five. 



Summary of the Arithmetic £xpresston S 2l 


Exercises 


3.5A HAL/S has seven infix operators: 

Which infix operators are legal for the following pairs of data types? The characten 
< > represent a blank, meaning multiplication. 

Of what datatype is the result for each legal operation? 


i) 

SCALAR 

SCALAR 

11) 

SCALAR 

INTEGER 

hi) 

INTEGER 

SCALAR 

iv) 

INTEGER 

INTEGER 

V) 

VECTOR 

VECTOR 

Vi) 

VECTOR 

MATRIX 

vii) 

VECTOR 

INTEGER/SCALAR 

vui) 

INTEGER/SCALAR 

VECTOR 

ix) 

MATRIX 

MATRIX 

X) 

MATRIX 

INTEGER/SCALAR 


End Of Chapter ProMrms 

3 A Write a HAL/S program ti.at will read Z vectors from channel 5 and write the angle 
between them on ch.ujnci 6. 

Remember. V|,Vi « I V| |[ V 2 I cosd 

where d is angle between V | and 

' ^ 3B There are occasions when it is necessary or advantageous to shift one*s frame of ref- 

* ^ erence. These occasions call for a translation and/or rotation of the coordinate sys- 

tem. Say the old axis (x. y) is shifted to the new axis (x\ y*) in the following 
manner; the x. y origin is shifted to (x^. y^) and rotated by a degrees as shown: 



yprf Bastes 


j:: 







The resultink translation equations are- 

x’ = (X Xq) cosa (y - y^) sina 
y’ = -ix - Xq) sina + (y - y^) cosa 

Write a MAL/S program that will translate 2 coordinates in the x, y system to new 
coordinates in x’. y’ where x^, = 54000, >0 « 1 18000 a » 17®. The two coordinates 
are available on channel 5 and shtuK be written on channel 6. 


3C 


Remember that HAL/S trigonometric built-ins require angles in radians. 

Write the nght half of the followini; 4 assignments tor the partitions in matrix M 


below 



a) V4 = 

where 

Vt IS a 4 vector 

b) M22 * 


M22 is a 2\2 matrix 

c) M34 « 


M34 is a 3x4 matrix 

d) VIO « 


VIO is a 10 vector 

I 2 3 

4 5 6 7 8 9 

"iol 


I 

: I 

3 

4 

5 

6 
7 
$ 
9 

10 ^ 



X X 
X X 


X X X X 
X X X X 
lx X X X 


(xxxxxxxxxx) 


$ 
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4.0 CONDITIONAL EXECIITION 

The suicfnenti in a program are executed sequentially, except when a flow control 
sutement is executed. The flow control statements can be loosely categorized by their use 
for decisions, loops, and subroutines. These groups are described in chapters four, five, and 
seven. 

Although the HAL/S assignment statement is quite flexible, only a limited set of pro- 
grams can be written without flow control statements. The ability of digital computers to 
evaluate conditions and select alternatives is the essence of their power. 


4.1 IF. . THEN. . ELSE 

A choice between two alternatives can be written with the HAL/S IF statement: 


IF A - 0 THEN WRITE(6) ZERO*; ^ 

ELSE WRITE(6) A; 

In this instance, the two allematives are executable statements and the test is a comparison. 
The first alternative is called the then clause, the second the else clause 

IF is a compound statement; i.e. it is composed of further statements. The concept of 
a statement containing “sub^-statements** is common in HAL/S: It will be useful to define 
the entire sequence. “IF comparison THEN statement ELSE statement** as a single state- 
ment. thereby: 

Unless the then or else clauses contain further flow control statements*, control passes 
to the next seifuential statement after an IF statement. 


There are two equivalent graphical representations of the IF statement 


Standarw 'rw 



Structurtd How 



1 



IlL... 


THEN 

THEN 

jtunyi iiun y 


CLAUSE 



ELSE 

ELSE 

CLAUSE 




•Aiid e«iy from the lit EXIT. REFEAT. RETURN and CX) TO. 



a 
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The form on the left illustrates the rule above by the e%pticit joining of two arrows ct 
the bottom. The system illustrated on the right is appropriate to structured programming 
languages in which complex decisions are represented through nesting of compound state- 
ments. all of which have one path in and one path out All of the HAL'S flow control 
statements texcept tiO TO) can be represented m structured flowcharts. 

The directions of the lines in a structured flowchart arc implied Vertical lines are always 
traversed top to bottom. Horizontal lines are always followed left to right and hack. Lmes 
may intersect only at the points of IF and DO CASE statements. There is no provision for 
overriding the natural direction. 

1 he above rules obviously limit the class of programs that can be represented. However, 
the forms that have been ruled out have been shown to be symptomatic of programs that 
are difficult to read and maintain. Any algonthm which can be expressed by a standard 
flowchart (where «<tuare boxes contain HAL/S assignments) ts equivalent to some HAL/S 
program, without CiO TO statements, which can be represented by a structured flowchart. 

The IF statement can select an alternative based on the results if a boolean combination 
of several comparisons. A companson consists of two expressions separi*!ed by 3 rebtrooa* 
op«rrator. as in. 

IF A - 0 THEN 

IF N > i: IHEN . 

IF B**: < 4 A ( THEN . . 

The complete list of relational operators is. 


s 

exact ;Ti)ualtty 

"1 » 

NOT 

not exactly equal 

> 

greater than 

> » 

greater than or equal 

< 

less than 

< » 

less than or equal 

n > 

NOT> 

not greater ihsn (tame as <« 

K 

NOT< 

not less than (same as >■) 


Since the character **T' docs not have a standard graphic across all systems, the keyword 
“NOT** may be freely substituted for ti. 

All of the operators above may be used between any combination of integer or H'alar 
tingle or double expressions. When necessary, integen are automatically converted to 
scalars, and single precision is raised to double before the comp arisen. 
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However, only the fini two reUitionel oper.tfon (* and ran be used between vectors, 
and matrices. Two vectors or matrices wuy be compared for eqn&U'y or inequality if they 
have the same dimension. They arc equal if each pair of ts exactly equal, and 

icqual otiierwise. 

It is not generally useful to compare sc«.iats, vet , or n,4trtces for equality. In the 
statement, 

IF A - a THEN WRITE(6) PURE COINCIDENCE ; 

where A and B are KaU^s, the WRITE statement is executed only If fvrry digit in A is the 
same as tn B. Due to the finite precision of scalars and roundoff problems, if B had been set 
by 


B • A 3; 

B • B : Ay3; /♦I/S A ♦ 2/3 A*/ 

B would probably not be equal to A. Scalars can be tested for approximate equality as in: 
IF ABSCA^B) < EPSILON THFN . . . 
where EPSILON is ‘^sufficiently smair’, r.f., 

DECLARE EPSILON CONSTANT! .000001); 


or 


EPSILON • tA4B)/l6»n.25 MANTISSA ^LENGTH); 


etc 


The keywords AND, OR, and NOT (or their equivalents. A, I, and may be used to 
combine several comparisoiu in one IF statement. Parentheses are ftnerally required around 
each simrde comparison. For example. 

IF (A>0) AND (A<l00) THEN . . . 

IF NOT((A<«0) OR <A>«I00» THEN . . . 

Both of these forms will result in ihe execution the then clause if (and only if) 
0 < A < 100, The first teat checks whethet A is in the i^ven ranqe. The '.^ond test it 
equivalent since if checks whether A is not outside the ranfe. The sense of «ny comparison 
Of combination thereof can b« reversed usini the NOT keyword ha shown in the second 
teat. This me of NOT requiirei a parentheaUed arfument. 
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Suppose a number is di^'ided into one of three ranges, as shown: 

IF N < 10 THFN R ^ I; 
hISE IF N < :0 THEN R ^ 2; 

ELSE R = 3: 


Here, the else clause of an IF statement is an entire IF. .THEN. . .ELSE group. It may 
he diagrammed as folio vs 



The THFN clause of an IF. . THEN. .ELSE group nay not be an IF statement.* 
A four way branch can be written with a VC, . .END group, as described in the next sec- 
tion. There are no restrictions to the THEN clause of an IF statement if no ELSE clause 
is present. 

The IF statement allows the selection of one or two alternatives based on the evaluation 
of a comparison. When no action is required unless the test succeeds, the else clause may be 
omitted entirely: 

IF A > 0 THEN B = SQRT(A); 

This statement is functionally equivalent to: 

IF A NOT > 0 THEN; 

ELSE B « SQRT(A); 

Here the then clause is just a semicolon, which is the HAL/S equivalent of a no-op or null 
statement. 

IF. . .THEN. .ELSE may be viewed as a single statement. The then and else clauses 
each contain a further single statement. Any executable statement is allowed in the else 
clause: the then clause may contain any executable statement except a further IF. . .THEN 
. . .ELSE. The else clause may also be omitted entirely. 


fhis rule avoids the "dangling else'* problem common to ALGOL-like languages. 
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Exercises 


4.1 A What IS HFong with the t'ollowiii): HAL/S coiulitional statements tin which all vari- 
ables are of SCALAR typel; 


a) II A < B < (' THKN MIDPLL = B; 

b) ir B < C THEN 

IF C < D THEN B « D. 

FLSF B = C: 

KLSF C = B, 

c> IL RADIUS > 0 & NOT RADIUS > I THEN 
WKITEfb) PI RADIUS*^:. 


4. IB Where possible, convert these standard llowcharts to structured llowcharts, without 
duplicating or eliminating boxes. Indicate why the others cannot be converted, 

a) 






















IF. . .THE\ riSF 4 " 



4. 1C Toll whether the following conditions are satisfied, not satisfied, or illegal. Assume 
that: 

A, B. C. D are scalars 
V, S are 3-vectors 

A = 7.0 c = i:.o 
B = 4.0 D 3,: 

V « c 4 0) S = (3 4 i:> 

a> A < B 

b) C > (NOT B) 

c) (A n = B) & (C > = D) 

d) (S n = V) OR (B “i > C) 

e) V < S 

0 (V.V < C) & (NOTiV.S < O) 



* 
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4. 1 D Write the following descriptions in relational expressions; 

g) A is greater than B but less than C. 

h) The vector V is not equal to the vector S and C not less than D unless D is 
equal to 4. 

4. 1 E Write HAL/S code implementing this flowchart: 
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4.: THE DO. . END GROUP 

A senes of executable statements may be eombmeil into a do which may then 

be used anywltere a single statement is ret|iiired. e g.. in the then clause. 

This allows, tor example, the following coding of a tour way decision. 

ir X < 0 THEN M = 0. 

ELSV DC^. 

IF X < 100 THEN DO. 

IF X > 10 THEN M = 2. 

ELSE M = 1: 

END. 

ELSE M = 3. 

END. 

This example, which sets M to the order of magnitude of X, can be diagrammed- 



Since It is only one statement, the entire sequence above could be further nested m IF or 
other compound statements. 

A do group consi>ts of a DO statement. an> number of executable statements* and an 
END statement; e.g. 


DO; 

\ = 1 ; 
j = 
END; 



1 



J = : 


•Or TEMPORARY statements. 
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M 

n 

M 

n 

rt 

tt 

n 

M 

n 

t 

fi 

H 

M 

tt 

n 

« 

M 


DAPTB?APD_#PPR3XtMATI0N: 
PROS'?.* m: 

C:CIAR£ SCAL/R, 


Xi t; 

OrCLARS 1NT£C£P. 

I, MIT, miss; 

00 FOR I = 1 TO 1003; 
y = PASoon; 

Y 8 RANDOM ; 

^ c 

IF X ♦ Y <s I THEM 
HIT 8 MIT ♦ l; 

ELSE 

MISS 8 MISS ♦ i; 

ENO; 

k’lTEiei 4 HIT / lOOO; 

CLOSE oartboaro^fproximation; 


Since the compiler used in preparing listings tor this manual automatically indents pro- 
grams to correspond to a structured flow, diagrams will not be provided tor subsequent 
examples. The same information is contained in the indenting as in the flow. 

The simple do group (without iteration) is classified as an i'ucut<jhU' statement. No 
additional machine code is generated however. An extra do group, like an extra set of paren- 
theses, is sometimes used for clarity. In the order of magnitude example, the else clause of 
the outer IF statement is bracketed by an unnecessary DO. , .FND pair It is common 
practice to use a do group as a then or else clause even when it is not required by the syntax. 
This allows for the possibility of later insertions. 

There is no way to branch into any part of a compound statement from outside the 
statement. HAL/S has a GO TO statement, and any executable statement may be labelled, 
but restrictions are imposed A label inside a do ffroup, in a then clause or an else clause, can 
only be used in GO TO statements which are themselves m the same itroup or clause. 

The do group has two uses, primarily, it allows the nesting of statements in tests and 
loops. The secondary purpose is to define the scope of temporary data. 

The TEMPORARY statement is similar to the DECLARE statement. It allows a tem- 
I'K.irary variable of any type to be created, as shown on the following page 
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program; 

OEClAf^E VCL VCCTOttf 

MY FRAME matrix; 

DECLARE SECTOR. 

result:* result:, c; 


do; 

TEMPCRART V.rRIMC VECTOR; 
V^PRirtE * MY, FRAME VEL*. 
RtSULTX « UNIT! V_PRIMn; 

result: » v.PRiME • e; 

ENO; 

CLOSE EXAMPLE 2; 


The vector, V PRIME, exists only for the duration of the do group. If the next do 
group contained: 

TEMPORARY S SCALAR; 

S would probably occupy one of the storage locations that had just been r.sed for 
V_PR!ME, 

Temporary variables may be of any type and precision. They may not, however, be 
initialized or given other minor attributes. TEMPORARY statements can oniy be used 
within do groups. Storage is allocated to temporary variables for the duration of the 
execution of the immediately enclosing do group. The TEMPORARY statement informs the 
compiler of the range over which a variable will be needed; the actual allocation and freeing 
of storage is done in an implementation-dependent manner. 

Very few restrictions are made on the use of temporary variables. They may not be ref- 
ferenced at all from outside of the containing do group; otherwise, they are usable in all of 
the constructs introduced so far. Proper use of the TEMPORARY statement can reduce 
a program's size without substantially increasing its execution time. 
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Exercises 


a 


4.2A Q A standarU means of flowcharting IS to use a system where. 


THEN yv ELSE 


'll 

Consider the following flowheart: 


represent DO. . .END 
groups each 5 state* 
ments long. 

[c I represents a DO. . END 
group 1 50 statements long. 


means a conditional execution along one of 
the paths (but not both!) depending on the 
condition represented by ‘CX’. 

represents a DO. . .END group without 
any conditional branches in the group. 




Rewrite this flowchart in a way to represent a shorter program. 

Can this change be made in a valid HAL/S program? 

4.2 B Write a HAL/S program that will solve a system of 2 equations in 2 unknowns 
as in problem 2D. 

However, do not assume a solution exists, incorporate a test to insure that the 
denominator is not zero. 

4.2C Implement the following structured flowchart segment m HAL/S, using as few 
DO. , .END groups as possible. 


f * 







4*14 Conditional Exrcutwn 



4.2V Consider the t'ollowini Powchart on the next pa|e: 



means a conditional execution on CX. 



meant a tingle statement represented by M. 


a) There is a construct in the flowchart that is not legal in HAL/S. What is it? 

b) Rewrite the flowchart to eliminate the illegal construct, and write a code frag- 
ment corresponding to this structure. Do not introduce or eliminate any 
conditions. 

c) How would a structured flowchart have made this mistake more easily 
avoidable? 
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4.2E In problem 4. 2D, we have *een that if the branches are to be preserved as shown, 
the code corresponding to 

□ 

had to be lepeated, 

Lets say that : 

□ 

is 250 statements long, whereas all the other 

□ 

are still a single statement. Rewrite the flowchart and the code to allow the code for 

s 


to appear only once. 
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4 J BOOLt.ANS 

I he tist hcts^fcn IT' ami TMhN in the IF statement isciihera corripanson ora htHtlcan 
t \i'rt \sit>n \ himlcan cxpre%sion is a boolean variable or a combination thereof. Both l>pes 
ot tests can be compoumleJ using AND. OR. .'.nd NOT. hut ihe> cannot be mixed in one IF 
Htateinent A boolean expression al>sa>s can be converted to a comparison as in 
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t-A-PLl 3: 
p9C':'>.*rt; 

DtCLiPE ni fJOLUM; 
ir 01 = TffUf TH£M 


do; 


CfJO; 

CL05! fVir''tl.3s 


The IF statement can also be wntten IF Ql TUbN . 

TRIT- IS a boolean literal. It is equivalent to BIN‘1' or ON Booleans can take on one 
of only two possr^lc values the other is written F-ALSF, BIN‘0' or OFF, I'he three differ- 
ent represcnf.itions for each value allow mnemonic comparisons and assignments as in 

DFCLAKF B(X)LF:AN INITIALtOFF). 

POWFR. RI ADY. 

IF RFADV » FALSF rHFN PO\^FR * OFF, 

As the example shows, the form of the declare and assignment statements is the same for 
booleans as for other data types. Booleans are annotated by the compiler with a **,’* on the 
I line. 

Bi>oleans are used for flags, signal slates and to opiimi/c complex comparisons. The 
keyworti BOOLF.AN is interchangeable with BITtl F Bit stnn0 of length greater than one 
are diseased in ( hapter I.V Since the concept of a **tlag*’ is so common, the BOOU AN 
keyword is included in the language and the applicable subset of BIT operations is pre- 
sented here. 

The preceding IF statement would normally be written 

IF NOr RFADY THtN POWl R « OFF. 
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NOT RKADY is a boolean expre^sinn, which can also be written ~) READY, Boolean ex- 
pressions are composed of boolean variables, the operators AND. OR. and NOT. and 
boolean functions. The operaton are defined x u! their truth tables below 

A AND B A OR B NOT A 

B B ^ 



TRUE 

FALSE 

TRUE 

fa:.se 

TRUE 

False 

TRUE 

TRUE 

FALSE TRUE 

TRUE 

TRUE 

FALSE 

TRUE 



AA 





FALSE 

FALSE 

FALSE FAL^F 

TRUE 

FALSE 




OR IS the inclusive or operator. Exclusive or is provided as a built-in function. 

IF XOR(A.B) THEN. . . 
but the equivalent statement. 

IF A n- B THEN 
is preferred. 

There are sixteen possible distinct binary operators on booleans. These include AND. 
OR, and NOT as well as exclusive or. the bi>conditton;d. etc. Any of them can be expressed 
by a combination of AND, OR ard NOT. Any bool.*an expression can be converted to an 
equivalent boolean exprcssvvn using only NOT and one of the other two. One such trans- 
formation IS expressed by DeMorganY rules: 

A AND B s NOTlNOT A OR NOT B) 


and 


A OR B 3 NOTtNOT A AND NOT B) 

For another example, XOR(A,B) could al«o be written **A ANDtNOT B) OR (NOT A) AND 

B” 


The expression A4(H B) I (H AlAB is the same as '*A exclusive-or B'* or A is not equal 
to B". Because AND has higher precedence than OR. the expression is interpreted as 

(AAlHB)) OR (HAiABl 

The boolean operators, AND, OR. and NOT. have considerable sumiarities to the arith- 
meta operators, multiplication, addition and negation, respectively. This results in the con- 
vention that I C&D is inierprcted as the OR (logical sumi of two ANDs (logical pro 
ducts). 
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ConiUlcrr the lolh'wing example of the tianslation from an I nglish sraleinenl of a con- 
dition to a boolean expression. 

Hnglish If the power on and cither it is not overheated or the override is set. and 
either switcli 6 is on or it is off and switch 7 is set. 

HAL'S Power & (not overheated or override) & (switch 6 or (n.'t switch 6 and switch 
7». 

Careful study of the hngli h fonn may fail to reveal how the precedence is communicated, 
hut most readers will see the correspondence between the two forms. Symbolic logic shows 
that while there are a number of reliable rules for translation, much rests on the reader s 
imdeniianding of the situation to which an assertion applies. 

The boolean expression above is written with the minimum number of parentheses, 
taking advantage of the precedence of NOT over OR and AND. The expression, (NOT 
SWITCTIb AND SWITCH7). has the truth table 



SWITCH6 



ON 

OFF 

SWITCH? ON 

FALSE 

TRUE 

OFF 

FALSE 

FALSE 


and IS equivalent to: 

((NOT SW1TCH6) ANl SWITCH?). 
In summary. 

Preceucnce of boolean operators 

First NOT 
AND 

Last OR 


In addition to Che test in an IF statement, boolean expressions may be used in assign- 
ment statements (tlie left hand side must also be boolean), in comparisons with other 
boolean expressions, and in WHILE and UNTIL loops (as described in the next chapter). 
Boolean expressions may appear in WRITE statements; boolean variabL^. may be read. 

No other data type is automatically converted to boolCi and boolean is not auto- 
maticall; converted to any other type. Booleans cannot bt used in arithmetic expressions, 
and anthineiic variables cannot be used in boolean expressions. The concept of precision 
does not apply to booleans, but hii strings may be viewed as sets of booleans on which 
operations can be performed in parallel. 
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Both typos of test in the IF siateiiicnt can be written using the AND, OR, anu NOT 
operators. These operators combiie either comparisons or booleans via precedence rules 
like those of arithmetic. Parentheses can be used to override the normal precedence. When 
nyffipurisons are combined, it is good practice to parenthesize 

IFd < 0) OR (I > 9) THEN. . . 

In boolean e.xpressions, the precedence rules make most parentheses unnecessary: an ex- 
ception is as in. 

IF A OR (NOT B> THEN. . . 

It is fUf( possible to combine comparisons and booleans in a single expression. If a statement 
(or group) IS to be executed based on both a boolean and a compari.son. the test should be 
written: 

IF (CHECKING * TRUE) AND (I < 0) THEN I = -I; 
or as. 

IF CHECKING THEN IF I < 0 THEN 1=1; 


Exercises 

4.3 A For each ol the following, tell whether it is a boolean exprcision, a relational ex- 
pression. or illegal. For the boolean expressions, tell whether the value is TRUE 
or FALSE; for the relational expression, tell whether or not the condition is satis- 
fied. Assume that: 

A, B are INTEGER 

V , S are 3-vectors 

UPFLG, TRFLG are booleans 

A * i: B = 6 

V = (2 4 6) S = (3 4 7) 

UPFLG = TRUE TRFLG = FALSE 

a) UPFLG = TRFLG 

b) NOT UPFLG 

c) NOT(V = S) 

d) NOT TRFLG OR A > B 

e) (A < B) TRUE 

f) UPFLG » TRUE 

g) TRFLG &(“1 UPFLG) 
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4.4 DO CASE AND GO TO 

The most basic How control constructs are loops, the IF statement, and the DO group. 
These may be combined and compounded to implement complex structures of decisions. 
The remaining flow control statements fill in a few gaps. They are not as heavily used as 
the various forms of IF and DO 

The IF statement allows a two-way decision based on a comparison or boolean. An 
n-way brancn based on an integer can be written with the DO CASE statement, for 
example. 


t1 

EXArPLE>: 

M 

PROS® am; 

M 

OfClARE SCALAR, 

« 

A, B, C, D; 


OECLARC NCM^GCOO INTEGER! 

ri 

OtCLAeE SCALAR, 

M 

VALUE, olo.value; 

c 

. . . 

n 

00 CASE NUn.COOO; 

M 

ELSE 

« 

oo; 

M 

VALUE = OLO.VALUC; 

M 

return; 

M 

ENO; 

n 

VALUE * a; 

« 

VALUE : U ♦ B) / s; 

M 

VALUE * niOVALIA, B, Cl; 

n 

oo; 

c 

. . . 

n 

ENO; 

M 

end: 

n 

0L0_ VALUE a VALUE; 

rt 

CLOSE EXAMPLE^A; 


This code sei' VALUE to some combination of the variables A. B, and C. It could 
oe part of an algorithm for combining redundant values from a set of sensors. The code is 
diagrammed: 






tHJ CASr and CO TO 
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Any integer or scalar expression may appear after the word CASF. The expression is eval- 
uated and rounded to the nearest integer if necessary. In this example, if the expression, 
NUM GOOD, is less than one or greater than four, the else clause is executed. Otherwise, 
om* of the four statements between the end of the else clause and the end i DO CASE: 
statement is executed. The fourth statement (fourth tuve) is a IX) group ' another 

instance of the use of DO. . .FND to combine several statements where one . nred. 

Only one of the cases is executed. After the selected case is done, control passes to the 
statement after the END statement which matches IX) CASE (in this example, to the assign- 
ment of OLD VALUE). 

Each case may be any executable statement. 7‘his includes assignment, IF. . .THEN 
. . vlsE, I/O, a EX) group, a loop, or a further IX) CASE statement. The only way to pass 
control to one of these nested statements is by executing the DO CASE header with an 
appropriate value of the expression. 
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The compiler counts the cases ami prints a case number to the extreme right of each 
in the listing. If an else clause is supplied, code is generated to compare the value of the 
case expression against the bounds, and the number of cases. If the expression is out of 
range, the else clause executes and control then continues after the END of the DO CASE. 
The else clause ma> be omitted entirely, in which case no checking is performed. Omission 
of the else clause may be risky, as under some circumstances. cont"‘ol can passed com- 
pletely out of the HAt/S program if the expression selects a missing case and no else clause 
IS supplied. 

In the example above, a RETURN stateme^:t appears in the else clause. When RETURN 
is used in a program, it is equivalent to transf rring control to the close statement, it exits 
the program. 

In chapter five, the EXIT and REPEAT statements are described. They are drawn in the 
same way: 


RETURN ) 


bXir ) 


( REPEAT ) 


Each is an unconditional transfer of control to a point defined by the structure of the pro- 
gram rather than to a user label. This completes the set of symbols used in a structured flow 
diagram. 

The flow control statements include those described in this chapter, loops, and (in a 
sense) the statements for defining and invoking procedures and functions. Some of the 
real-time statements of Chapter 12 may be thought of as transferring control, though there 
are conceptual differences. 

The only other flow control statement in HAL/S is GO TO. The experience of a number 
of large HAL/S programming projects has shown that the GO TO statement is not neces- 
sary. It is provided chiefly for mechanical translations from other languages. 

Once a degree of familiarity with the use of compound statements for flow control is 
achieved, it can be seen that the concept of a “conditional transfer'’ or branch instruction 
is merely a free form notation for flow diagrams: a line with an arrowhead. The restrictions 
on the use of GOTO correspond to the rules for a structured flow diagram presented in 
Section 9,1 . GOTO’s are not allowed at all in a proper structured flow, but HAl/S permits 
some exceptions: 

1 ) between unnested statements in the same program or other block. 

2) between statements nested at the same level in the same compouvii statement, 

3) to a less deeply nested statement in the same block, provided that target state- 
ment is not contained in any compound statement which does not a'so contain the 
C50 TO statement. 
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Exercises 


4.4 A Rewrite the following code segment using the DO CASE statement: ^ 

IF I = 0 THEN SCRAMBLE * 4; ’ ! 

ELSE IF 1 = I THEN SCRAMBLE = 0: 

ELSE IF I : THEN SCRAMBLE = 5; 

ELSE IF I = 4 THEN SCRAMBLE =1; 

ELSE IF I = 5 THEN SCRAMBLE = 1: { 

ELSE SCRAMBLE = 3: 


4 
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5.0 UX)PS 

A loop is a constrj which causes a set of statements to be executed repetitively. In 
HAL/S, a loop is a compound statement: The statements to be iterated are nested within 
the loop. Four types of loop are provided, so that the need for explicit backward branches 
(GO TO’s) is virtually eliminated. 

A loop is created in HAL/S by attaching one or more iteration control phrases to the 
simple DO. . .END construct which was described in the previous chapter. These iteration 
control phrases govern the number of times the loop is executed and may provide a counter 
or “loop control variable” which can be referenced from within the loop. 

The example below uses the most common type of loop, the iterative DO FOR, to 
compute the factorial of a number. The number, N_MAX, is read from channel 5 and 
(N_MAX)! is written to channel six. 
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FACTCRIAL: 

PR 06 PAM; 

DECLAPE INTEGEPt 

RESULT » H t1AX» X; 
REA0($) H tlAX; 

RESULT - U 

00 FOR I s 2 TO N MAX BT l; 
RESULT 5 I RESULT? 

E^?o; 

URZTE(6) result: 

CLOSE FACTORIAL? 


Note that the body of the loop is executed repetitively until the control variable exceeds the 
final value specified after the keyword ‘TO”. The example shown computes factorial 
(N_MAX) by doing N_MAX-1 multiplies by the control variable, which takes on the 
values 2, 3, 4, . . ., N_MAX on successive iterations. 

In addition to the iterative DO FOR, other forms of iteration control are: The discrete 
DO FOR, the WHILE phrase and the UNTIL phrase. 

These constructs probably are familiar to the reader who has used other algebraic pro- 
gramming languages, therefore, the remainder of the discussion in this chapter is primarily 
concerned with the limitations and restrictions of HAL/S loops, and the ways in which 
these constructs may be combined with each other and with other features of the language. 

5.1 THE ITERATIVE DO FOR STATEMENT 

In the preceding example, the hop body is a single statement: 

RESULT » I RESULT; 

In genera], the loop body may contain any nuhiber of executable statements. Since the loop 
is constructed from a simple dc group, the TEMPORARY statement may also occur in 
the loop body. 
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In the phrase. 

FOR I * 2 TO N.MAX BY I: 

I is termed the Itxip control variable, 2 is the mittal valtu\ N MAX is tla final raluc, and I 
IS the tnircmcni. 

HAL/S places very few restrictions on these four parameters. In particular, the loop 
control variable may be any sinple or double precision integer or scalar variable.* For 
example, given the declaration 

DK'LARF A INThOFR, 

B INTEGFR DOUBLE, 

C SCALAR. 

D SCALAR DOUBLE: 

« all four of the following combinations are permissible. 

IX) FOR A = B TO C BY I); 

IX) FOR B = 1) TO C B\ 1 : 

DO FOR C = D TO B/A; 

IX) FOR D = A B TO A+B BY D, 

The initial and final values and the increment used in an iterative DO FOR loop may be 
any arithmetic expression. That is, each may be any expression which evaluates to a positive 
or negative, single or double precision, integer or scalar value. Each expression is evaluated 
only once, at entry to the loop. This, if variables used in the expressions are modified 
within the loop, the iteration parameters of the loop are not affected. 

IX) FOR TEMPORARY 1 = 2 TO N MAX BY I. 

A TEMPORARY loop control vanable created in this way may be used within the body of 
the loop in any way thrl a declared variable could be used, but outside of the loop the TEM' 
FOR ARY variable does not exist. Since the TEMPORARY control variable is effectively 
unDECLARED at the end of the loop, the memory locations occupied by the variable mav 
be re-used. thus reducing the storage requirement of the program containing the DO FOR 
j ‘ TEMPORARY. Under some versions of the compiler a speed advantage may also result. 

^ / TEMPORARY control variables created in a loop are always single precision integers; their 

names must not duplicate declaied data or other TEMPORARY variables in the same loop. 

The initial and final values and the inclement used in an iterative DO FOR loop may be 
any arithmetic expression. That is, each may be any expression which evaluates to a positive 
or negative, single or double precision, integer or scalar value. Each expression is evaluated 
only once, at entry to the loop. Thu.s, if variables used in the expressions are modified 
within the loop, the iteration parameter of the loop are not affected. 


*Single precision integers are generally the moat efficient. 


I 
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Note that in HAL/S the loop control variable may be a scalar; e g.; 

DECLARE SCALAR. X, PI CONSTANT (3.14159); 

DO FOR X = -PI TO PI BY .001; 

WRITE(6) X, SIN(X), COS(X). TAN(X); 

END; 

This code will produce a set of trigonometric tables, giving sine, cosine, and tangent 
values for 2000 n different angles. 

The operation of the loop is the same as for integers: On each iteration, increment is 
added to the loop control variable, and if the final value is not exceeded, the loop body is 
executed. The values taken on by X are: -x, -ir+.OOl, -ff+.002, .... etc. The last value 
will not exactly equal rr, because it is generated by a sequence of additions of .001. 

In the event that the result produced by adding the increment to the current value of the 
loop variable is not of the same type or precision as the loop variable, the usual rules for 
mixed mode assignment statements govern the conversion. For instance, if the loop variable 
is an integer and the increment is less than one, rounding will occur on each pass through 
the loop. In this case, if the increment is positive but less than .5, the value of the loop con- 
trol variable would never be changed and the loop would never terminate.. 

As previously stated, any or all of initial value, final value, and increment may be nega- 
tive. For instance, the loop below is functionally equivalent to the one iii the original form 
of FACTORIAL. 

DO FOR I * N_MAX TO 2 BY -1; 

RESULT * I RESULT; 

END; 

When a negative increment is specified, the termination condition becomes "is the loop 
variable algebraically less than the final value?” 

The only way that the body of a HAL/S loop may be entered is by execution of the DO 
statement which heads the loop; however, control may leave the loop by a variety of means 
other than the control variable exceeding the final value (e.g.. RETURN, EXIT, and GO TO 
statements, error conditions, etc.). Since the increment has been added to the loop variable 
before the test against the final value is made, at normal exit from an Iterative DO FOR 
loop the loop variable will be greater than the specified final value (if the increment is posi- 
tive) or less than the final value (if the increment is negative). This fact may be used to 
determine whether or not the loop was exited prematurely. Use of this feature is illustrated 
in the sample below, which sets the variable NEG_PART to the number of the first negative 
component in a vector, or to zero if there is no negative component: 

DECLARE V VECTOR(5); 

DECLARE NEG_PART INTEGER; 

DO FOR NEG^PART ■ I TO 5; 

IF VSNEG^PART < 0 THEN EXIT; 

END; 

IF NEG^PART > 5 THEN NEG_PART « 


0 ; 



Hk' ( \if NiJtcmont is not t'litK descnheJ until later in this chapter, but m this case the 
meaning is intuitive It component number NtCi PAR V ot V is less than zero, control exits 
from the loop Ho the second lb testl Tims. NKi PARI will be greater than the 5 if only 
if the entire vector was examined without finding a negative value. 

Since It IS necessarx' to test M (1 PART outside of the i' a temporary loop control 
variable would not be appropriate in this example. 

To find the \t\onJ negative component in a vector, the following loop could be added 
after tile one above 

DO KOR NbC. PARI = NbCi PART TO 5. 

IF VSNFG PART < 0 IHFN bXIT. 

bND. 

Since the initial and final values and the .ncrement specified in an iterative DO FOR 
loop are evaluated onlv once ipnoi to the first iteration), there is no conflict in using 
NbCi PART both as a loop control value and as the initial value. I his new loop will con- 
tinue where the first stopped. 

The ”BV 1” clause has been omitted above, since I is th * most commonly used incre- 
ment. It is the defaul* and need not be specified. 

In summary, the iterative DO FOR takes four parameters, the first, the control vari- 
able. ma\ be any previously declared anthmetic identifier or may be a TEMPORARY 
integer created within the DO FOR statement. The initial value, final value and incre- 
ment mav be anv anthmetic expression, the increment may be allowed to default to one 
by omitting the clause These expressions are evaluated pnor to the first pass Ihrougli 
the loop, and the results detennine whether the loop is executed once, many times ornot 
at all. The loop tenninates when tlie value of the control variable passes the final valre 
specified in the TO clause. Later in this chapter, we will see how the addition of a WHILE 
or I'NTIL clause can modify the execution of a loop, bio first we will examine aso^Ker 
fonn of the IX) FOR constnict. 


Exercises 

5. 1 A Consider the following code fragment where 

I & N are integers. 

S IS scalar 

N 10; 

S» . 1 . 

DO FOR 1=1 ro : BY S: 

N = N + I , 

END. 

What IS the value of N on exit from the loop? 

5.1 B Consider the example vhere NEC P.ART was set to tne number of the first com- 
ponent of a vector less than zero, ot zero if no elements were negative. 


iht Disirttt IH) t OH Siatemt‘nt 


Change the code given in the example ff' leave the number of the last negative com- 
ponent instead of the first. 

.S. 1C Consider the following code fragment where. 

N & 1 are integers. 


N»9: 

DO FOR I • 1 TO N BY 2. 

N»N+ 1, 

END; 


What is the value of N on exit from the loop? 

^ 1 D Consider the following code fragment where: 

A is a 5x5 matrix, 

X an ^ Y are integers. 


X- I; 

ROWS Y « 1 . 

LOOP: A$(X,Y)«.2; 

IF Y ■ 5 THEN GOTO OUT. 
Y- Y+ I; 

GOTO LOOP; 

OUT: IF X - 5 THEN GOTO DONE; 

X-X+ 1; 

GOTO ROWS; 

DONE: 


a) What dots this do? 

b) Rewrite this using HAL/S iterative do for loops. 
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5.2 THE DISCRETE DO FOR STATEMENT 

In order to understand the utiht> af another type of DO FOR statement, consider the 
problem of recognizing prime numbers. The code below sets a boolean variable, PRIME, to 
TRUE if NUM IS prime and to FALSE otherwise (for simplicity. NUM is assumed to lie 
between one and one-hundred). 

DECLARE PRIME BOOLEAN INITIAL(ON). 

DECLARE INTEGER. NUM. I; 

READ(5» NUM; 

DO FOR I - 3. 5. 7; 

IF REMAINDER(NUMJ) - 0 THEN PRIME ■ FALSE: 

END; 

This code produces the correct answer over the range 10 to 100, but is inefficient. A 
belter algorithm is to lest the divisibility of NUM only by numbers which ire themselves 
prime. This can be conveniently expressed using the disciete DO FOR. 

DO FOR I » 3. 5, 7; 

IF REMAINDER(NUM.I) » 0 THEN PRIME - FALSE. 

END; 

In this case, the loop is executed only four times, with the loop control variable, 1, equal 
to two on the first pass, three on the second, five on the third and seven on the final itera- 
tion. The reader may note that both programs contain a logical error in that the wrong 
result is obtained when NUM is equal to 2, 3, 5, or 7: this error will be fixed when the 
WHILE phrase is introduced in the next section of this chapter. 

The form of the discrete DO FOR is similar to the iterative version: the discrete form 
specifies a list of values (expressions) to be assigned to the loop control variable rather than 
an algorithm (initial value, final value, and increment) for computing successive values. 

On each pass through the loop, the control variable is set to the value of one of the 
expressions to the right of the equal sign. The expressions are used from left to right on 
successive iterations of the loop; each one must evaluate to an integer or scalar value. If 
the type or precision of any expression is different from that of the control variable, the 
usual rules for mixed mode assignments are applied. 

Unlike the expressions in the iterative DO FOR, the expressions in the discrete DO 
FOR are not evaluated until the iteration of the loop on which they are to be assigned into 
the control variable. This means that the value of the control variable on future passes 
through the loop can be changed by storing into variables referenced in the expressions from 
the body of the loop; e.g.: 

DO FOR I - 1. I, 21. 31. . . 

At exit from a discrete DO FOR loop, the contiol variable retains the value of the last 
expression, unless the variable was TEMFOR \RY, m wh \ case it is undefined. 
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The remaining iteration control phra$e». WHILF anU UNTIL, provide for looping vvith- 
out the use of a control variable. The next two sectiom of this chapter describe how to 
create a loop with these phrases, and show how they ma> be used to modify the effect of a 
DO FOR 

5,3 THE WHILE CLAUSE 

The WHILE clause ma> b** appended to a simple DO . . . END group to create a loirp. or 
It may be ^^ppended to either '>rm of the DO FOR to introduce an additional condition for 
cositinuation of a loop. The general form of the WHILE clause :s 

W’HILF boolean expression 
or 

WHILE relational expression. 

The boolean or relational expression represents a condition Uyr lonttnuunon of the loop, as 
long as it evaluates to the TRUE slate, the loop continues. For example 

\>0 WHILE TRUE. 

END. 


IS an infinite loop, whereas: 


DO WHIIE X < : 
END; 


continues until \>2 




t 


The expression in the WHILE chuse is evaluated prior to each execution of the first 
statement of tiie loop body. If on any pass the expression evaluates to EALSE. the loop 
body is sktpped and execution continues at the statement after the END of the DO W nILE 
or DO FOR . . WHILE loop, fhe DO WHILE loop is particularly useful when the number 
of iterations that should be made througli a loop is not known in advance. Consider, for 
example, Newion\ methixJ for computing the ss)uanr root of a number. X. The method 
generate'! cU>scr and cloKr approximations until the current approximation is "good 
enough*' "i>ood enough" is defined as the point where the gam in accuracy from the last 
Iteration was negligible Hess than EPSILON) The example below illustrates the point. 


H HiuTOMsoan 

n Mceasm 

n otcistc X Kaiaai 

H QlLCAil latUQN erHSTAMK .Hii; 

H sicutl KALst. cte..iafcox» Nfu.aaatoxi 

n titoigi x: 

H Ncu.aaftox • x / it 

n oto.Apracx t et 

n 00 uMUt MtiNfu.Aaaoox - evD.APfooxi > mxiONi 

H 0lf».A0Ma< ■ N|U,*fPM»Xl 

n Niw 4PM0X « *0i0>mox • x / oio^aomoxi / it 

H IMOl 

n svtTfu) *Mor os *. x. * so s NCu.Aomxt 
n CIOM WMTOI^WTl 
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Note that this progTsm can be made to produce more accurate results (at the expense ol 
greater execution time) merely by decreasing the constant EPSILON. Note also that if 
X IS equal to zero, the WH!LE test will fail on the first evaluation and the conect answe' 
«ij| be produced but no division by zero wil; occur 

When the WHILE clauK is addec to a DO FOR. a new loop is not created, but an 
additional condition for continuation >f the existing loop is imposed. This combination 
can be used to correct the deficiency m the PRIME program of Section 5.2 shown 
below: 

DECLARE PRIME BOOLEAN INITIAL (TRUE). I INTEGER. NUM INTEGER: 

READ(5) NUM; 

DO FOR I - 2. 3, 5. 7 WHILE I < - SORT (NUM); 

IF REMAINDER (NUM.I) « 0 THEN PRIME « FALSE. 

END; 

To see how the WHILE clause corrects the bug in the old version suppose NUM equals 
3. Under the old version. REMAINDER (3.3) would It computed on the second pass 
through the loop. t!.e result would be zero, and PRIME would be set to FALSE, Now. how- 
ever. prior to each execution of the loop body, the test **ts 1 <■ SQRT (NUM)?"^ is made. 
On the first execution of the DO FOR statement. I is set to two. Then 1 is compared with 
SQRT (NUM). which here is SQRT (3) or 1 .732. Since it is nor the case that 2 ! .732, the 

loop body is not executed and PRIME remains TRUE. Adding the WHILE clause in this 
example also has the effect of determining the primeness of most numbers in fewer iter^ 
tions. For example, when X * 17 the tocp is iterated only twice since 2 is less than or equal 
to SQRT (17) and 3 is less than or equal to SQRT (17), but me next number in the DO 
FOR. 5, IS greater than SQRT ( 1 7). 

EXERCISES 

5. 3 A O. fi'e Tide in the last example in Section S. 1 that finds the number of the first 
cn 1 r .. V 'K .eliminating the need for the line: 

It < 0 THEN EXIT 

by using a WHILE clause. 


5.4 THE UNTIL CUUSE 

The general form of the UNTIL clause is. 

UNTIL boolean expretat >n 
or 

UNTIL ffiationai exprsMion. 





The UNTIL Clause J-V 


It may be used in the same contexts as the WHILE clause: with the simple DO . . . END 
group or with either fonn of the DO FOR statement. Unlike the WHILE clause, however, 
the UNTIL clause specifies a condition under which iteration of the loop is to terminate. 
When it evalutes to TRUE, the loop terminates. For example, 

DO UNTIL 3 « 4: 

END; 

IS an infinite loop, whereas 

DO WHILE 3^4; 

END; 

is effectively a NO-OP (never executes). UNTIL is not, however, simply an inverse of 
WHILE for the iollowing reason: An UNTIL clause never terminates a hop before the first 
pass throufih the hop body This property of the UNTIL clause may be used to avoid the 
need ro initialize variables used in the termination jndition of a loop. Suppose, for instance, 
that 4 program is to read vectors from channel 5. When a zero vector is read, the sum of the 
previous vectors is printed and another s'*! is read. The program is to run indefinitely. 

This could be expressed via two WHILE loops: 

DECLARE VECTOR, TOTAL, V; 

DO WHILE TRUE, 

TOTAL = 0; 

V = VECTOR (!, 1, 1): 

l>0 WHILE V "1 VECTOR (0, 0, 0>; 

RE\D(5) V; 

"OTAL « TOTAL + V; 

E j; 

WR1TE(6) TOTAL; 

END; 

In this ''xample, the assignment: 

^ V = VECTOR (I, 1, I); 

, L ' is used to force V to be non-zero before the inner IcH^p executes. If this statement were not 

provided, the inner loop would not execute after the first iteration of the outer. 

Tht essential difficulty is that the inner loop written with WHILE will test the value of 
V before i* has been read. 



li the I’N I II ionn js used tiu* u\JU'r U>o|\ (he muuih/ation of is not needcvi 


\x> wmu i RUi , 

101 \i = 0. 

IH> I’NIIL V ^ VK'IOR tO, 0. 0). 
HI Al)t5i V, 

101AL = rOTAL + V. 

INI). 

WRirito) TOlAl; 


Since the I'NTIL clause cannot terminate the kK-tp helore the first iteration, the initial 
value of V i> unimportant 

WhcTu as in tins case, the UNTIL clause is used with a simple IX) . . LND gnnip. it is 
useful to conceno of the teminatiori test as being done at the end of the loop (after the last 
statemcni of the loop bod\ ). 

like the WUIll clause, UNTIL ina> also he used as an additional condition on either 
t\ pe of IH) rOR statement, as m 

no LOR : = 1 lo 10 I’Niii \si = o. 

I NO. 

Lius example ts a loop (with no loop body) uliicli sots I (o the index of the first zero 
component ni a \ccior, A However, since the UM H cannot terminaio the loop on its (irsi 
Iteration, if AS 1=0. the loop will continue to look for an additional zero. 

When Used with a 1)0 I'OR statement, tlu UNTU clause causes a test for termination 
on the second and all suhseipicnt iterations vd'the hvsp, or. the second thixmgh last iteration, 
the lest is pei formed ufit'r the (00 L'OR) loop control \amhle has been updated, out 
hrrotc the firNt statement of the loop body is executed. 


Fxercises 


5.4.\ Consider the problem of exercise 5,.1A. A proposed solution is shown below. 


niCLARL V VlXTORt.M; 

DLCLARL NLC. PART INTLOLR: 

no LOR NLC; PART * I TO 5 UNTIL VSNLCi PART < 0; 
LND. 

H NF(» PART ^ 5 THLN NLi; PART - 0; 


Why is this not an acceptable solution? 



I \ij u-uiKfn ii < n 


5.5 EXIT AND Rt PEA I 

The eonstnicts alre.u4 mtroiluced in this chapter provide for the repeated eveeution of 
a loop bodv . and for a eondition to he specified under ulucli control is to e\it from a loop 
These language features, howevei. onK govern the execution of an iunrc loop body, the 
statements to be introduced in this section allow a pornon of a loop to be repeated and for 
a termination test to be made at un\ point in the loop body rather than onl> at the begin- 
ning or end. To see how the>e statements. EXIT and REPEAT, augment the other loop 
control statements, consider the following program. 


/* THIS PRCXiRAM READS A SERIES OE ANGLES EXPRESSED IN DEGREES. 
CONVERTS THEM TO RADIANS, AND KEEPS A RUNNINC; TOTAL ON EAC H CYCLE 
IT PRINTS IHE CURRENT TC^TAL (IN RADIANS) AND THE TANGENT OF THE 
TOTAL AN(tLE PRODUCED. IT AU FOMA TICALL^ STOPS WHEN THE RUNNlNC; 
TOTAL EXC EEDS 5 tt. OR IE THE COMPUTATION OE THE TANGENT COMES TOO 
CLOSE TO A SINCJl^LARITY */ 


M TAN_S'CMS: 

ri REPLACE CARDS BY "5'*» /*CARD REAPER IS DEVICE 5»/ 

M REPLACE LIST BY -6‘*; /•PRINTER IS DEVICE (>•/ 

n DECLARE SCALAR, 

M X. 

« TOTAL INITIAUO), 

M PI CONSTANT ( 3. 

M BAD PER OEC^SE CCNSTANTCPI / UO), 

M SHIFT CCNSTANTIFI / Dl 

tt 00 UNTIL TOTAL > 5 PI J 

M READlCAPOSl X; 

f1 TOTAL = TOTAL ♦ X RAD.PER.DEGREE I 

h IF r.DDt TOTAL - SHIFT. PI) < .001 THEN 

M EXIT; 

n URITE(LIST) TOTAL, TAN( TOTAL); 

h CLOSE TAN_suris; 


In this example, the statement: 

' "IF MOD(TOTAL SHIFT.IM) < 001 THFN FXIT;" 

causes the loop to tenninate if TOTAL gets within .001 of n/Z. Z^n/Z, etc. If the EXIT 
statement is executed, control passes to the statement after tiu END of the loop (i.e. to 
the CLOSE statement). 

The program might be more useful, however, if instead of terminating at a singularity, 
it allowed the user to enter another value and continued. This can be accomplished by 
ehanging the FXIT statement to REPEAT ;is follows. 


IF MOD( TOTAL SHIFT, PI) < .001 THEN REPEAT. 




loops 


if the Rl-PtAT statement t$ executed control will return to the top of the loop, where 
TOTAL '^'11 be compared with 5 PL If this test fails (TOTAL is nut ju^eater than 5 PI), the 
loop body will be re«e\ecuted. 

This example shows how PXIT ma> be used to insert a completion lest at any point in 
the loop body, and how RPPHAT may be used to cause iteration of a portion of the loop 
body. 

The general fonn of the EXIT statement is: 

EXIT: 

or 

EXIT label. 

When used without a label. FXIT causes an unconditional transfer of control out of the 
nearest enclosing IK) . . . FND group <i.e. to the statement following the FND of the imme- 
diately enclosing loop or simple DO . . . FND group). If a label is supplied, it must match 
t.te label on some DO . . FND group in which the FXIT statement is nested: tliis lonn 
causes transfer of control out of the corresponding loop or simple DO . . . FND gioup. 
Similarly, the general fonn of the REPEAT statement is: 

REPEAT, 

or 

REPEAT label. 

Unlike the FXIT statement, however. REPEAT applies only tolv^ops W'hen used without a 
label it causes repetition of the nearest enclosing DO WHILE. DO UNTU , or DO FOR loop. 
Repetition, in this sense, means that the loop control variable (if any) is updated, the ter- 
mination condition (if an> > i.s re-evaluated, and if the conditions for termination are not met 
then control is passed to the first statement of the loop biHiy. Tims, the presence of a 
REPEAT statement in a loop dtws not change Uic number of iterations of the loop, but 
does determine which portion of (he loop body is executed on each iteration. 

EXIT and REPEAT are controlled forms of GO TO. The location to which control is 
transferred is defined by the structurv' of the program. Thus, whenever these ^Mtements are 
used, their fumuons are what their names imply. EXIT always **gcts out of* a compound 
statement. REPEAT always repeats a loop. GO TO. on tlic oti.er hand, has a variety of 
functional uses. When GO TO is used, the reader must find the corresponding label to gain 
any idea of the effect of the CiO TO, 

The follow ing code fragment uses arrows to illustrate the transfer of control caused bv 
EXIT and REPEAL. 





f XITonii RfPtAl 


$ 


M FFC-'^i'K 
« CCCUCf INTtGEP. 

n I. J» K. L. m; 

n ^00 L'»im fAL?E: 
n IF I = 0 T*tEN 

M CO: 

n j s o; 

h t^^ * p£FE*T; 

n r:&. 

M ELSE 

M £v1T; » >«> ■ ■ 

M flOOFC: 

M 00 rro K = 1 TO ic; 

M L00F3. DD FCP I = M. U. n ♦ N; 
M If J = 0 THLM 

rt REPEAT lOCPC: 

M UtE 

M f exit; 

M * EKD ; 

M trip; 

n ENP; » -. .. ■ — 

« ClO:.E Si**PLE,FLCW; 


Since RltPhAT applies only to loops, its effect is not changed by placing it in a simple 
DO . . KND group. This fact can be used to make the FAN SUM program more infoniU' 
tive as shown below 

II MODlTOTAL SHII T.PI) < .001 THI N DO. 

WRiri tLIST) lANf'.FNT UNDbUNFD’: 

RlPbAT, /* RbAD ANOTHIR ANCJLI ♦ 

IND, 


Excrcbes 


5. 5 A (liven 






a) DO FOR X - 1 K) 100. 


EXIT: 


4 


FND. 






* 

# 


* 






5-N Loops 


and. 

b) DO FOR X = 1 TO 100; 


REPEAT. 


END. 

Assume that the EXIT and REPEAT are executed in some conditional branch Sv/me- 
time during the execution of the loop. These arc the only EXIT'S and REPEAT'S in 
the loops and there are no branches out ot the loops. 


What can be said about the value of the control variable ‘X’ in a) and b) above when 
the first statement after the END is executed? 

End Of Chapter Problems 

5A Write a HAL/S program to use Simpson*s rule to approximate the area under the 
curve y = y/\ using smaller and smaller segments, delta. The process continues until 
the area resulting from (delta/2) size segments differs from the result obtained using 
delta by less than EPSILON. 


Read the limits of integration from channel 5 in scalar form, and write the resulting 
area out on channel 6. 


Remember, Simpson’s Rule is: 
^ FINAI 
✓ INITIAL 


f(x)1x=-^^|f(iiiitial)+:(.INITIAL+DELTA)+. . . 

‘ +:i'(l INAL-DELTA)+f(FINAL)| 


Include any assumptions you make. 
SB Consider the following code: 


PROBLEM _PROG: PROGRAM: 

DECLARE INTEGER, 

NUMBER INITIALO), 

DIVIDER; 

TESTJNIT: DIVIDER = 2; 

TEST. IF MOD (NUMBER, DIVIDER) * 0 THEN GO TO LOSE; 
DIVIDER « DIVIDER + 1; 

IF DIVIDER = NUMBER THEN GO TO WIN; 

GO TO TEST; 

LOSE: NUMBER - NUMBER + 1; 

IF NUMBER « 500 THEN GO TO DONE: 

GO TO TEST INIT; 




* 



WIN: WRITE16) NUMBER, 

NUMBtR = NUMBER + 1: 

IF NUMBER < 500 THEN GO TO TEST_INIT: 

DONE: CLOSE PROBLEM PROG, 

MOD(a.b) yields a(mod b), the remainder when the greatest integral multiple of b 
less than a is subtracted from a. 

a) What does this program do? 

b) Rewrite it using do for . . . end loops so that the program is easier to re:id. 
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6.0 ARRAYS 

An ARRAY is an ordered set of variables of identical type which are accessed by a single 
name. Arrays arc completely distinct from vectors and matrices. The primary uses of 
ARRAY*; in HAL/S are: 

1 ) For penorming identical operations on similar data as in: 

DECLARE IMU_ STATUS ARRAY(4) INTEGER; 

DO FOR I = 1 TO 4; 

IF IMU_STATUS$1 NOT = 0 THEN CALL RING_ BELLS; 

END; 

2) For maintaining a history of previous data values as in: 

DECLARE ALT HISTORY ARRAY(IOO) SCALAR DOUBLE; 


CYCLE = CYCLE+1; 

ALT_HISTORY$CYCLE = NEW ALTITUDE; 
and 

3 ) For maintaining tables of all sorts, as in: 

DECLARE DAYS^PER_MONTH ARRAY(12) 

INTEGER INITIALS 1 ,28,3 1 ,30,3 1 ,303 1 3 1 30,3 1 ,30,3 \) 

HAL/S allows arrays of any data type; however, the most frequently used arc single 
dimensioned arrays of INTEGERS and SCALARs like those in the examples above. There- 
fore, the basic concepts of declaring and subscripting arrays will be thoroughly examined 
in this context before arrays of other data types and more advanced array operations are 
discussed. 

6. 1 ARRAYS OF INTEGERS AND SCALARS 

Arrays are created using the ARRAY keywoi*d in the DECLARE statement; a parenthe- 
sized compilc-time expression or list of expressions must follow the ARRAY keyword to 
denote the size of the array. Arrayness is an attribute of a variable of some data type rather 
than a new type. Hence, given the statements: 

DECLARE A ARRAY(3) SCALAR; 

DECLARE V VECTOR(3); 

the data type of A is SCALAR and the type of V is VECTOR even though both consist of 
three single precision SCALAR elements. 

Following the word ARRAY is a parenthesized list of dimensions. Each dimension is 
described by a compile-time expression, which is the size of the dimension and the index 
of the last element. X, Y, and Z in the next figure could be REPLACEd with any integral 
value up to an implementation-dependent limit: 




(V J Arravi 


ARRAY (X) 

I'n I 


ARRAY (Y,X) 

1 

Y 



ARRAY (Z.Y,X) 



Arrj\> jrc inUiali/ed in Ihc ^nie manner as VFt'TORs and MAFRIXsia list o! values is 
pnnided in parenihcsi> follosvmji the keyword INI TIAL or C ONS TAN I . The special charac- 
lers * and # mav be used for partial initiali/alion and repetition as before. Thus. 

mclARI A AKRAYi.M INlFtiFR INITIAl* J.5. 14.:.0). 
creates 

A = i.V5.l4.:.Oi 
and, 

IMCLARF B ARR.AYO:^ SCALAR INinAUO.C t,SORn:L 
SQRTCL4#:,*L 


creates 

B 5 (O.i. 
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Since it is often desirable to initialize an entire array to the same value, HAL/S also allows an 
initial (or constant) list to consist of only one value; in this case every element of the array 
is set to the value provided. Thus the forms 

DF.CLARE X ARRAY(5) INTEGER INrriAL(5#0). 

and' 


DECLARE X ARRAY(5) INTEGER !NITIAL(0); 

are equivalent. Finally, the AL. -vY attribute may also be ‘'factored” or specified only 
once in a DECLARE statement which creates r.mltiple arrays as shown below 

DECLARE ARRAYii). 

GYRO INPUT INTEGER. 

ATT RATE SCALAR DOUBLE, 

SCALE CONSTANT(.OI3,.0:6,.OI3). 

The arrays declared above minhl serve as the inputs and outputs of a simple program 
which dees linear scaling of data read from an accelerometer assembly. Assume that 
C’»YRO INPUT contains three values which represent the rates cf vehicle rotation along the 
pitch, roll, and yaw axes. A simple routine to convert the data to more convenient units and 
data representation might be; 

DECLARE N INTEGER; 

DECLARE BIAS SCALAR INmAL(57.296); 

DO FOR N = 1 TO 3; 

ATT_RATE$N = SCALESN GYRO^INPUTSN + BIAS; 

END; 


In tills example, the various arrays are subscripted in the same fashion as VECTORS, and. 
in general, the same rules apply; The subscript of a one-dimensional array may be any 
arithmetic expression which evaluates to a number between one and the size of the array. 
If the expression does not produce an integral result, it is rounded to the nearest integer. 
An array element, such as ATT^ RATES I* or SCALESlN-r^). may be used in any context 
in which a simple variable of the same data type can be used. For instance, given two 
SCALAR ARRAY( 10)*$, A and B, the following statements are all leKal: 


AS!,A$2 « SIN(A$3); 
A$(B$(A$3)> » 19- 
DO UNTIL A$1 - A$2; 

IF A$N < A$(N+I) THEN . .. 


*Some readers may wish to review the diacuition of single and multi-line fonnati in Chapter 2. 



6-4 Arrays 


Another example of the ase of arrays appears in examr 1- This program determines 
the minimum, maximum, and average time required to inv« « a 5x5 MATRIX containing 
random data; 



In this example, two previously undefined hinctions, RANDOM and RUNTIME are invoked: 
RANDOM is used to set the matrix to a set of pseudo-random numbers, and RUNTIME 
returns the viluv > ^ the system's real time clock. 
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It may be noted that the min. max, and mear. could have been computed within the 
main loop without saving all of the values in an array. Saving the data allows additional 
statistics, such as the median to be computed (see exercises). This method ot obtaining 
timing data may be inaccurate if the time required to read the clock is significant. 

HAL/S provides for multi-dimensional arrays: These are typically used for eaK of 
subscripting and to contribute to the readability of a program by logical grouping of data. 
For example, suppose that instead of one accelerometer assembly as described earlier, 
there were four of them, for reasons of fault-tolerance. Then, we might declare the input 
data as a two-dimensional array. 

DECLARE GYRO^ INPUT ARRAY(4,3) INTEGER; 

Now. GYRO_ INPUTS:>i3,2) is the second measurement from ♦he ib-rd unit, 
GYRO_INPIJT$(l,l ) isth3 first measurement from the fint unit, and GYRO_INPUT$(l,*) 
is all the data from unit one, i.c. the same three measurements we had before. The use of 
an asterisk to indicate “all of a particular dimension*’ is the same as in VECTOR/MATRIX 
subscripting, the #, TO, and AT forms also apply. Thus, GYRO_INPUT$(*,I) is an array 
containing the first measurement from each of the four accelerometer units, and 
GVRO_INPUT$(2 AT # I,*) is a 2x3 array containing three measurements from each of 
the last two units. In the next section we will s?e how these complex subwiipts are used, 
but first we shall examine the gcneial form of multi-dimensional arrays (and finish process- 
ing the redundant accelerometer data along the way). 

The maximum number of dimensions in an array depends on the particular HAL/S 
compiler in ase. All present HAL/S compilers allow from one to three dimensions. In 
declaring an array, the number of dimensions is denoted by the number of expressions 
in parenthesis following the keyword ARRAY. Thus, 

DECLARE A ARRAY(5.9.4) SCALAR, 

B ARRAY(I80) SCALAR; 

creates two arrays of 1 80 scalars, but A is 3-oimcniiona) while B is linear. The first element 
of B is 8S 1 , whereas the fint element of A is AS( 1,1,1). Initialisation works the same as in 
single dimensional arrays: either a list of values containing one value per array element may 
be provided, or a single value may be assigned to all elements. Thus, the array A may be 
initialised as: 

DECLARE A ARRAY(5,9.4) INITIAL(O); 


or 


DECLARE A ARRAY(5, 9,4) INITIAUISOT ^ 

If we want A to be all zero except that A$(* *,3) - 1, the following initial list ca t be 

used: 


INITIAL(5#(9#(0.0,-I.0))) 



Arrgys 


To undcnfand why (his is correct, it is necessary to know that HAL/S stores arrays an 
**Row>majoi order**. This means (hat the values in the initial list are assign *d in the follow' 
mg order 

A$( ).!.) ) « value 1 
A$( l,!,2) * value 2 
AS( 1,1.3) * value 3 
A$n,l,4) • value 4 
A$( i.ll) ■ value 5 
A$< 1 ,2.2) * value 6 

ct cetera 

The way to remember this fact is by noting that the nght-most index is incremented the 
most rapidly. 

Now, to illustrate the usefulness of multHiimensional arrays, we vail return to the 
examples ot four accelerometer assemblies. The entire set of twelve measurements could 
he processed as shown below ; 
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eff ocean; 

oiCLsai ariO^iNruT sttAV<4» si luriMt; 

OeClA«l ATT.tATC AtffATU, SI tCAU«l 

eiciAfi scAii AtvAYisi coNSTAUTi ,eis* .oe4» ,«ni; 

OtCUiV atss SCALIO SNZTXAilSr.tf4M 

00 rca TfnrcoAiiT i « t to 
00 ret TtHIOtAtV a • 1 TO Si 

ATT.tATf I tVtO.XNtUT KAll « llASl 
t»j J 

INO; 

INO; 

ciosf fXAntic.ti 


In this code, SC ALE is still declared as a array of //tree Since the four instruments are 
Mlentica^ there is no need to keep four sets of scale factors. Note, however, that if 
GYRO. INPUT iiad been declared as a linear ARRAYU2), we would have to either make 
the SCALE array also of iue twelve, or introduce more complex vode to asso .e the 
right scale factor with each of the tweKe mv*jsurements. Thus, a two dimensional array 
may be a mechanism for performing identical . derations on a set of similar linear anays 
just as a linear anay may be used to perform identical operations on a set of similar integers 
or scalars. 

6.1.1 AfkIHkmal Ejtamplee 

I) Do a matnx multiply, Ml « M2 M3, wi h Ml, M2 and M3 declared as ARRAYs 
rather than as matrices. 











3) Find the square root of the mean of the squares of ail the values in an array 
100 scalars; 
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EXAMPLE 5: \ 

program; ; 

OCCLARE A APRArnoOi; 

DECLARE RMS SCALAR; | 

DECLARE TOTAL SCALAR DOUBLE INITIAUO. ' 

00 FOR TEttPORAfiy N s 1 TO ICO; > 

2 I 

TOTAL s TOTAL ♦ A ; t 

H I 

end; 

RMS S SQPTI TOTAL / 100); 

CLOSE EXAMPLE.S; 


Exercises 


6. 1 A Which of the following declarations lists are legal? 

If they arc legal, what do they create? 

If not legol, why not? 

a) DECLARE X INTEGER INITIAL(3); 

DECLARE LIST^ONE ARRAY(X) SCALAR INITIALokO; 

b) DECLARE X CONSTANT(4); 

DECLARE ARRaY(X), 

LIST.ONE SCALAR INITIAL(4#.2), 

LIST^TWO INTEGER; 

c) DECLARE LIST^TilREE ARRAY(18) SCALAR INITIAL(10#J,*); 

d) DECLARE LIST„FOURARRAY(9, 3) SCALAR iNITlAL(3#.l); 

3#(3#.2),*); 

e) DECLARE LIST^FIVE INTEGER ARP \Y(6); 
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6-1 B a) In example 1 in the text, the mininium. maximum, and mean times required to 
invert a 5x5 matrix are computed. Modify the code of the example to include a 
computation of the standard deviation, defined as follows: 


a 

where X is the mean value of the time, and n is the number of samples. 

b) An alternate definition for standard deviation, easily shown to be equivalent 
to the above, is: 


o * 

Using this formulation, it is possible to compute the standard deviation without 
saving all the time values in an array. Rewrite the program of part a), eliminating the 
array of time values. Is it possible to compute the median value without saving all 
the values? 

6, 1C In example_2, GYRO_INPUT and ATT_RATE are declared ARRAY(4,3). 

The text states that if these variables were declared ARRAY(12) either SCALE 
would have to be declared ARRAY(12) or more complex code would be needed. 

Keeping SCALE declared an ARRAY(3). modify the code given for examplc_2 
such that GYRO, INPUT and ATT^RATE are declared ARRAY(12), while still 
keeping the basic structure of the code given. 

6. ID Instead of die modification of the array shown in EXAMPLE_4, write code that 
will perform the following modification of array A. 
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6.2 OPERATIONS ON ENTIRE ARRAYS 

Most of the examples in this chapter have relied upon the iterative DO FOR loop to 
sequence through the elements of an array. Commonly, the loop has been used to apply 
one statement to each array element, i.e. 

DO FOR I = 1 TO ARRAY_SIZE BY I; 

(statement) 

END 

Since this type of operation is so common, HAL/S provides a mechanism for combining 
these three statements into one. For example, to add one to each element of an array 
could be coded as follows: 

DECLARE A ARRAY(IO) INTEGER. 

DECLARE I INTEGER; 

DO FOR I = I TO 10; 

ASI * ASl + 1: 

END; 

or, by eliminating the subscript and the loop, could be recoded as shown below:* 

DECLARE A ARRAYHO) INTEGER; 

A = A+1; 

This assignment is an example of an arrayed statement: A statement which operates on all 
the elements of an array. Heie the effect is the same as in the form with a loop. i.e. each 
element of A is incremented. In general, an arrayed assignment statement results whenever 
the target (left-hand side) of the assignment is an array. There are two possibilities for the 
expression to the right of the * sign. It may be cither a simple expression (e.g. ‘M” or 
“SQRT(3)”) or it may be an arrayed expression (e.g. ‘*(A1 + T or **(Al/r’). In the former 
case, every element of the target array is set to the value of the expression. In the latter case, 
one additional rule applies: the arrayncss (number and size of dimensions) of an arrayed 
expression must be exactly the same as the array ness of the variable to which it is assigned. 
This must be true because each element of the target anay is set to the corresponding 
el> ment of the arrayed expression. An arrayed expression follows the same rules as an 
uiiarrayed expression except that some or all of the variables are arrays (of identical 
dimensions). Thus, if 

A = CX‘ + DX + S; 

is a legal HAL/S statement involving simple variables A, C, D. and X of any data type, 
then: 

lAl - (C) (Xl2 ♦ D[X1 + 5; 


*The HAWS compiltt annoUtet artayi with iquite brackets In the output lilting. Thus, the assignment 

statement would appear as (A) « (A| I ; 
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where A, C and X are identical arrays of the same data types, is also legal. In general, all of 
the arithmetic operators (e.g. +. /, etc.) will accept either two simple variables, a simple 

variable and an array, or two arrays of identical dimensions. 

Note, however, that the machine code generated to correspond to an arrayed statement 
still contains a loop: this fact is unportant when assessing the efficiency of a computation 

The following shows how the partition form of array subscripting is used. Given : 

DECLARE GRID ARRAY( 6 , 6 ) SCALAR; 

a vanety of re-arrangements of the array can be done in a very few statements: 

1 ) Set the top half to the bottom half : 

GRID| JO ® GRID 4 JO 6 ,^ ’ 

2) Set the upper left quarter to the lower right comer: 

GRIDj TO 3. 1 TO 3 = AT 4. 3 AT 4 • 

) Set the first row to the sum of the other five: 

GRID j * = GRID2 • + C.RID3 * + GRID4 ♦ + 

GRID 5 ♦ • 

4) Set the border to zero; 

GRIDj ♦ , GRID*^ , GRID5 * , GRID* I = 0; 

This last example is a multiple assignment statement, to which one additional rule 
applies: If one or more of the target variables in a multiple assignment statement is an 
array, then all of the target variables must be arrays and of identical dimensions. 

One caution is in order regarding assignments like these. Consider the assignment. 

GRIDS(I.:T0#> = GRIDSd.l TO#-l); 

This statement might be intended to shift the top row one position to the riglu. Instead, it 
sets GRIDS(I.2 TO #) to GRIDSd.l): the first element is propagated throughout the tow. 
The reason can be seen when the arrayed assignment is unravelled: 

GRIDS(I,2) = GRIDSd.l): 

GRIDS(I,3) « GRIDSd.2); 


This adverse effect can occur whenever a partition of an array is set from an intersecting 
partition of itself. Such assignments should always be checked by partially expanding them 
by hand. 
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Using the feature introduced in this section, we can make the redundant accelerometer 
example of Section 6. 1 more compact: 


n cxAnriE 
n rpcoPinT 

« OECLAPE ARRAY(4, 3), 

M cyPo_iNrur imtecer. 

n ATT^RATE scalar; 

« DECLARE SCALE APPAYUl SCALAR CONST ANT ( .Pl 3. .0C6, .013K 

n DECLARE DIAS SCALAR CCNSTANH S7. I ; 

M 00 for TEflcCRARY DEVICE * 1 TO 4; 

H lATT^PATEl s eCYPO^lNPUTl I SCALE | ♦ BIAS; 

S DEVICE.* DEVICE.* 

n ifo; 

H CLOSE IXAMPLE.^; 


Here, we have converted an unarrayed statement in double loops to an arrayed state- 
ment in a single loop. Since the SCALE array is of size 3 and the other arrays are 4x3. we 
cannot eliminate both loops without getting an arrayness mismatch in tlie assignment 
statement. But it is possible to have an assignment statement with more than one dimension 
of arrayness as long as all of the variables match. Thus, we could compute a set of four 
attitude arrays: 

DECLARE ATTITUDE ARRAY(4,3) SCALAR; 

DECLARE ATT_RATE ARRAY(4,3) SCALAR; 

from the attitude rates m a single statement merely by 

(ATTITUDE) = (ATTITUDE) + (ATT_RATE) DELTA_.T; 


where DEI TA_T is a SCALAR representing the time between samples. This one state- 
ment is functionally the same as: 


ATTITUDES(U) * ATTITUDES! 1.1 ) + ATT^RATESU.l) DELTA„T 
ATTITUDES! 1.:) - ATTITUDES! 1,2) + ATT„ RATES! 1.2) DELTA_T 
ATTITUDES! 1.3) - ATTITUDES! 1.3) + ATT _ RATES! 1,3) DELTA..T; 
ATTITUDES!2.1) = ATTITUDES! 2,1) + ATT_RATES(2.1) DELTA_T; 


ATT1TUDE$(4,3) « ATTITUDE S(4,3) + ATT_RATES(4,3) DELTA_T; 

!a total of twelve simple assignments). 

In addition to arrayed assignments, HAL/S also allows arrayed comparisons. It is 
possible to compare an entire array or arrayed expression, either with a simple variable 
or with an identically dimensioned array or arrayed expression. For example, we could 
create a 4 by 4 array showing mismatches between the four sets of ATTITUDE data (each 
an ARRAY(3) partition) as shown: 


* 
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In this example, the statement: 

“IF ATT!TUDE$(I,*) ‘I = ATTITUDF$(J,») THEN . . 

is an arrayed comparison: Each element of ATTITUDE $(!,•) is compared with the corre- 
sponding element of ATTITUDE$(J,*). If arty of the pairs of elements is unequal, then the 
comparison succeeds and MISMATCH(U) is set to I. Thus, this statement is functionally 
equivalent to: 

IF (ATTITUDESd.I) "I ^ ATTITUDES! J,l)) OR 
(ATTITUDESU.:) * ATTITUDE$(J,2)) OR 
(ATTITUDE$(I.3) “I ATTITUDESOJ)) THEN,.. 

Two arrays are considered unequal if they differ in any element; they are equal if they do 
not differ in any element (i.e. they arc equal if all elements are the same). 

# It is also possible to compare an array with an arrayed expression; for instance the 

statement: 

“IF ATTITUDES! I,*) = !ATTITUDE$(2,*) + ATTITUDE$!3,*)) 12 THEN ..." 

would determine whether or not the first set of readings was equal to the average of the 
second two. Finally, an array may be compared with a simple variable or expression, e.g. 

IF (MISMATCH! “1=0 THEN , . . 


tN'AMPlf 7i 
FPOGPAfi; 

DECLAPC ATTITUDE APRATU. SI SCAUP; 

DECLARE mSMATCH ARRAY(4, INTEGER; 

DECLARE INTEGER. 

I. J; 

DO FOR I s 1 TO 41 
MISMATCH = O; 

1. 1 

00 FOR J : 1 « 1 TO 4; 

IF t ATTITUDE J -= I ATTITUDE I THEN 

I.* J.4 

I MISMATCH , MISMATCH * 1; 

X.J 

ELSE 

MISMATCH , MISMATCH e 0; 

J.I I.J 

VtDi 

END; 

ICLOSE EXAMPLE 7; 


or 

IF AmTUDE$(2T0 4.l) - ATTITUDESd.I) THEN ... 





> ' ’ 
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Regardless of the data types involved* the only comparisons which may be made between 
arrayed operands are equal (=) and unequal (H*). This restriction is made for the same 
reason as m VECTOR/MATRIX comparisons: The question* “Is A = ( 1* 57, 3) greater than 
B = (2, 4, 3)?" has no clear answer. 


Exercises 

6. 2 A Which of the following are legal arrayed statements (expressions): 

Where: 

A ARRAY(5) D ARRAY(5,5) 

B ARRAY(5) E ARRAY(10,10) 

C ARRAY(IO) 

X INTEGER 
Y SCALAR 

a) A = B; 

b) A = C; 

c) A » X; 

d) D$(*,5) « B; 

e) * Y; 

0 E$(5.*) » B; 

g) E$(5 AT 2. 3 TO 7) » D, 

h) A. B « X; 

i) A, Y « X; 

j) C$(5 AT3) = A + B; 

k) C$(5 AT4) » A + X; 

l) C$(B) » X; 

m) DO WHILE A > X; 

n) DO UNTIL A - B; 

o) DO UNTIL A n « C; 

p) DO WHILE D$(2 AT2.2 AT3) - E$(2 TO 3, 3 TO 4); 

q) DO WHILE D$(*,3) » A; 

r) DO WHILE A$(l,l) » X; 

s) DO UNTIL A « C$(5 AT4); 

t) DO UNTIL B - E$(7.6TO#); 

6.2B What are the m^or benefits of the ability to do operations on entire arrays in one 
line of code? 
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6.3 ARRAYS OF OTHER DATA TYPES 

So far in this book, five data types have been introduced. INTEGER, SC'ALAR, VEC- 
TOR, MATRIX, and BOOLEAN. An array of any of these types can be created in a manner 
completely analogous to the INTEGER/SCALAR arrays already described. For instance, 
one array of each type can be created in a single DECLARE statement: 

DECLARE ARRAY(IO). 

I INTEGER, 

S SCALAR. 

V VECTOR, 

M MATRIX, 

B BOOLEAN, 

E^ach of these arrays consists of ten array elements; each element behaves in the same way 
as a simple vanable of the same data type. In the case of an array of VECTORS (e.g. V 
above), each array element in turn consists of several components (in this case, three 
scalars). Hence, if V were to be completely initialized, 10 x 3 = 30 values would be re- 
quired. As in INTEGER/SCALAR arrays, the INITIAL list may contain either a value for 
every array element or a “single” value (i.e. initialization for one VECTOR or for one 
MATRIX). For example. 

DECLARE A ARRAYC) VECTOR INITIAL! 1,0,0, 1 .0,0); 


creates: 



DECLARE A ARRAYC) VECTOR INITIAL( 1,0,0); 
and, 

DECLARE M ARRAY(3) MATRIXC,2) INITIAL(I,:,3,4.5,6,7, 8.9,10,1 1.12). 
creates: 




The same initial list could also be used to initialize a three by two array of 2- VECTORS: 
DECLARE X ARRAY(3,2) VECTOR(2) INITIAL! 1,2,3,4,5,6.7,8,9.10.1 1,12); 


< i 
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But in this case, the layout of the data is significantly different: 



This is no! merely a distinction of graphical representation. The concepts of data type 
and arrayness are completely independent. Thus given: 


DECLARE M MATRIX(2,2) INITIAL(a,b,c,d); 
DECLARE N MATRIX(2,2) INITIAL (e,f,gdO; 
DECLARE A ARRAY(2) VECTOR(2) INITIAL(e,f,g,h); 


the assignment statements, 


• * ^ 

N « M N; 


and 


lA) * M (A); 


perform very different operations. ''N » M N;** is a simple matrix multiplication as described 
in Chapter 2, but “A » M A;” is an arrayed statement; docs twc (the arrayness) multiplica- 
tions of a vector by a matrix. The results would be: 


N 

[AJ 


ac + bg af + bh 

cc + dg cf + dh 

( ac + bf"| fag + bh* 

ce + df J * 1 eg + dh 


As indicated above, arrayed statements may be formulated from arrays of VECTORS 
and/or MATRlXes according to the usual rules: All of the VI CTOR/MATRJX operations 
may be applied to two simple variables (or expressions), to ai. array and a simple variable, 
or to two arrays of identical dimensions. To see how arrayed operations on these data 
typesjnight be used, consider the following situation: An aircraft has a position VECTOR, 
MY^POSN, and access to an array of five other vectors, [POSITIONS], which gives the 
locations of five other aircraft. The code below, which executes every DELTA_T seconds, 
computes the velocity of each aircraft, the distance between each aircraft and MY_POSN, 
and the rate of approach of each toward MY_POSN: 
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f1 C\AMFL£_a: 
n P?rS9AM; 

n DECLAPJ FOSITICSS APPAYIJI VCCTO»; 

II DECLAC£ OLO.PCS^ APPAffS) VECTCPi 

ri OCCLAPt A-PA1I5J, 

M VELOCnr VfCTOP. 

ni5TA».CE SCALAR. 

APrrciC)4_PATE scalar; /hTNI ANSWERS*/ 

0ECIA9E MT^rcSN VECTCP; 

DrcLAPc celta t scalar; ^ 


OBTAIN PCSmoNS fPOM OUTSIDE 



hach of these assignment statements has an array ness of five. The second one. for 
instance, first subtracts MY. POSN from each of the five V'ECTORS in POSITIONS, pro* 
ducing an array of five “distance” VECTORS. Then the ABVAL function operates on 
each VECTOR m turn producing a scalar distance which is stored into the corresponding 
element of DISTANCE. 

So far we have been deliberately avoiding any subscripts of arrays of VECTORS and 
MATRIXes: This is because a long list of subscripts can be rather confusing. For instance, 
a three dimensional array of MATRIXes could have up to five subscripts; Given: 

“DECLARE M ARRAY(:,3.4) MATRIX(5,5);” 

one might expect the first MATRIX to be referenced as “MSt l.l.l.*,*)” which is fairly 
complicated, though more comprehensible than “M$(J+l,2 AT AT #-~4,2)." To 

i aid in dealing with these difficulties, HAL/S makes a distinction between array subscripts 

and component subscripts. The first three subscripts of M are array subscripts and the last 
two are component subscripts. To make subscript expressions more readable, HAL/S en* 
forces the following rule; Whenc/er both array and component subscripts are applied to a 
variable, they are separated by a colon instead of a comma. Thus, the first MATRIX in the 
array M i* actually “M$( 1.1,1 .•.*)” Using this syntax, we can re-write the second assign- 
ment state lent from the example above the hard way; that is: 

(Distance! * ABVAU I POSITIONS) -MY^POfN); 



is equivalent to. 
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DISTANCl j » SQRT((POSmONSS(l:n-MY„POSN|»**2 

♦ (POSITIONSS(l:2) MY^POSN^)**: 
(POSmONSSd 3)-MY^P0SN3)**2) 

DISTANCE 2 » SQRT((POSITIONSS(2 l)-MY_?OSN|>*’'2 
+ P0SITI0NSS(2:2)-MY_,P0SN2)**2 

♦ POSITIONSS(2:3» MY__P0SN3)**2); 


DISTANCH 5 - SQRT((P0SITI0NSS<5:I)-^MY_P0SN|)**2 
♦ P0SITI0NSS(5:2)-MY^P0SN2)**2 
+ POSmONSS(5:3| MY_P 0 SN 3 )** 2 ); 

Aside from the use of the colon, all of the possibilities for subscripting stiK apply; aU 
of the TO, AT, and * partitions may be used on either side of the colon, any arithmetic 
expression may be used as a subscript, and a subscripted variable may be used in any con* 
text in which a simple variable of the same data type could be used. 

The data type of a subscripted array is not necessarily the same as the data type of (he 
entire array. For instance, given; 

DECLARE A ARRAY(3,2) MATRIX;. 

A is a two-dimem* mal anay of type MATRIX.* 

ASn.*:*.*) is a one-dimensional array of type MATRIX,* 

A$(l.*:l,*)if aone-dimcnsional array of type VECTOR,* 


and 


A$d,l.U)icasin|le SCALAR. 

It tv more common to reference an entire asray element or sub-array than it is to rwTe^ 
encc a component of an array element or some sub-array of partitions, etc. Therefore. 
HAL/S provides a more compact form for referencing an entire element of an array to 
whkh component subscripting couid also apply; When an entire array element is selected, 
the asterisks (component subscripts) to the right of the colon may be omitted. Hence, 
the rirst MATRIX in the array A above can be referenced as '*AS(1,I;)'*. The convenience 
of this form of subscript is illustrated by the program below which processes an array of 
3-VECTORs and saves the three having the greatest magnitudes in a second array: 


*Eac)i occvntact of A in tht ttsting win suiomaUcaBy bt saaotaisd with so ompuacb itfltetiai ths tifsct 

ofatbicriptiagoA A. 
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BZ6TNVII I V ; 
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n fyXT iwf»; 

H l»o; 

rt VO 

n fr«; 

« Close IXAHFlf^fi 
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6.3.1 Arrays of BOOLEANa 

BCX)LEAN arrays are not substantially different from arrays of other data types. Ihe 
only attribute of BOOLEAN arrays that does not directly follow from the previous discus- 
sion IS Wtuinevar a BOOLE AS array ts subscripted, the subscript must end with a cohm. 
The reason for this restriction is that BOOLEAN is actually a special case of BIT strings.** 
Like VECTORS and .MATRIXes, bit strings may possess component subscripts. Thus, even 
though a BOOLEAN has only one component <a single bit), the colon must be supplied 
to indicate that the subscript is an array subscript rather than a component subscript. 

Aside from this restriction, BOOLEAN anays are used in the same way as arrays of 
other types; declaration and initialization t^ke the same forms. 

DECLARE ARRAYU:> BOOLEAN. 

A. 

B INITIAUOFF). 

C JN!TIAL(OFF.ON.9#ON.OFF); 

and anayed assignments and comparisens also function as before: 

|A|$4IT06:) ■ |B|S(I T06:) « (AS(I ) OR |&i $(7 TO- i:»: 

IF|A| - TRUE THEN . . . 

One typical use of BOOLEAN arrays is for maintaining status tables. For instance, if 
we had a set of redundant altimeters producing an array of altitude vahies; 


**Bii ttftfigs ait fully described m Chapter 1 3 . The word BOOLEAN is caacily equivaleni to 1 
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DECLARE ALT ARRAY(4) SCALAR: 

and a * paralkl " an ay containing the time at which each value was read 

DECLARE TIMETAC ARRAY(4) SCALAR; 

then it might be useful to define a boolean array of the same size; 

DECLARE DATA,VALIDARRAY(4) BOOLEAN; 

each element of which indicates the validity of the corresponding altitude value. One pos^ 
sible form of this reasonableness check is shown below: 
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Exercises 

6.3A Write out graphically the a‘su)ts of the following imtiali/ations; 

il DHCLARI X ARRAV(3) MATR1X(3.3) INITIAL(9#. !.♦) 
ih DECLARE Y ARRAVtJJ) VECTOR(3) INmAU9#.l/l 
ihl DECLARE I ARRAY(9) VKTOROl IWITIAL(9# !,•> 

IV) DECLARE A ARRAYC7) SCALAR INITIAL(9#.I.*) 

6 JB In the previous prohlcm. the initializations lists were transformed into their graphs 
cal interpretations. Using this data, assign the twcnty’first element of the lineariza* 
lion of X, Y. Z. and A to a scalar variable. S. 

6.3c’ Ciivcn a variable M. declared MATRIX(3,9): 

Assign the 16th through 22nd elements of the linearization of X. Y, Z, and A to 
the 2nd through 8th elements in the linearization of M, 

6.3. 1 A The Sieve of Eratosthenes is an ancient Cireek method for computing prime num- 
bers. but it still works ttnlay and is quite suitable for a computer. Ihe algorithm 
works as follows: 

Start with a list of integers from 2 to the largest number of Interest. C'ross out all 
multiples of 2. then all multiples of 3. and so on. The remaining numbers arc then 
all prime. 

Write a HAL/S program to print out all primes less than 100. using the Sieve of 
Eratosthenes. (Hint; Use an ARRAY of BOOLEAN type to indicate if a number 
is prime or not.) 



ft Urllv^ 


6.4 FUNCTIONS OK ARRAYS 

In Soclion (v2 wc saw that tiu' stalcmcnt: 

••lAl = IBl'/v" 

where A ami B are ulcntically ilimt*nsioncd arrays, results in each element of A being set to 
the square root of the eorres|x>rding element of B. As the reader miglit expect, the same 
nsult may be obtained by the statement; 

“lAl = SQRT(|BI>;\ 

Whenever any of the built-in functions introduced so far is applied to an array, the ivsult 
IS an identically dimensioned array where each element is the result of applying the function 
to the corresponding clement of the arrayed operand. Sim*’.»rly. the rules for functions of 
two arguments, such as MOD or 1)1 V. are the same us for infix operators (e.g. +, etc,), 

both arguments may be unarray eB. or one may be arrayed and the other unarrayed, or both 
may be arrayed (and of identical dimensions). This usage, the u/rai ci/ miocuni#/! of a func- 
tion. has iH'en amply illustrated in the previous section; llAL/S also provides a set of func- 
tions that will im/i accept arrayed arguments. 

One of the examples in Section 6.1 gathered some statistics on the execution time of 
the matrix inverse operation. A SCALAR ARRAY(IOO), TIMF, was filled with 100 samples 
of the execution time of an assignment statement. Tlten the variables T MIN. T MAX. 
and I ML AN wen' set to the minimum, maximum and mean values from the array by 
means of a U>op. More con^pact code for the same function is sltown below. 

T MIN * MlN(iriMF)); 

T MAX « MAXtlTIMFI); 

I MFAN - SUM(|riMM)/IOO 

Here, the built-in functions. MIN. MAX, and SUM. m/me an array to a single imarraycd 
value. Fach of these functions land a fourth, PROD) ntfiates an arrayed operand. 1'he 
array may be either IN 11 iFR or SCALAR (of either precision), and the result is an unar- 
rayed value of the same data type and precision. 

Vhe SUM fiinction simply adds all of the array elements together 

“SUM(|A|)*' 

is equivalent to: 

‘•ASI + as: + . .. + A$n* . 

The PROD function multiplies all of the elements together in a similar manner; (A$l) 
(AS:) (AS3) . . . (ASn). MIN and MAX both search through the array, and return the 
value of the array clement which is algebraically smallest (MIN) or largest (MAX). All 
of these fiinctions will accept a multi-dimensional up \ . but the result returned is always 
unarrayed. Thus, given: 
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(A) s (5.IV3,21), 

MIN((A1) = -3, 

MAX(IAl) = 21, 

SUM((A]) 40, and 
PROIXJAI) « 5355, 

The results Hill be exactly the same whether A is declared as: 

DECLARE A ARRAY(2,2) INmAL(5,l7,-3,21); 
or as a linear ARRaY(4). 

6.4.1 Shaping Functions 

Throughout this chapter we have stressed the fact that a linear array is not the same 
type as a VECTOR, and that a two dimensional airay is not the same type as a MATRIX. 
Sometimes, however, it is useful to be able to convert one type to the other. For instance, 
we might want to use arrayed statements to compute the x, y, and z components of a 
vehicle's position from some complex sensor, and then to treat the results as a 3 -VECTOR 
for further computations. We already know from Chapter 2 that given: 

•DECLARE A ARRAY(3) SCALAR, 

V VECTORS 

the convereion can be made by: 

•‘V » VECTOR(A$l,A$2,A$3);” 

In fact, the form. “V * VECTOR((Al);'' is completely equivalent Both the VECTOR 
and MATRIX conversion functions will accept any mixture of arrays and simple variables 
as operands, provided the total number of elements is correct. When an array is specified 
as an operand to one of these functions, it is ••unraveled*', i.e. it is effectively replaced with 
a list of its elements. In the same way, an array of vectors can be unraveled for assignment 
to a larger vector: 

DECLARE AV ARRAY(2) VECTOR(3); 

DECLARE VEC6 VECTOR(6); 

VEC6 * VECTOR^ (lAVl); 

The statement above is functionally equivalent to; 

'^3 AT I " AV, . ; 

^3AT4 “ ^ 2 : ■ 
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The MATRIX function works in much the same way, a 3 by 3 MATRIX. M, can be assigned 
as: 


M = MATRIXaAVMAl); 
yielding: 

AVS(I 1). AV$(l-2), AV$(|:3) 

M = AV$C:I), AV$(2::), AV$C:3) 

A$l, A$2 , A$3 

To perform the reverse conversion, the INTEGRR and SCALAR functions are used. 
These functions have already been introduced as explicit type conversions; when they are 
used with multiple simple arguments or any type of data aggregate (arrays, VECTORS, 
etc.) they return an arrayed result. Tims, using the previous declaration, we can set an array 
to a VECTOR as: 

lAl = SCALAR(V); 

The SCALAR (or INTEGER) function will accept any number of arguments of any arith- 
metic type so long as the total number of SCALAR or INTEGER values agrees with the 
subscript of the function. 

These functions have a number of uses. They may be used to convert the type of data as 
shown above, to initialize an array, as in: 

ISMALL^PRIMESI INTEGER(I,2,3,5,7); 
or, to re-arrange the elements of an array (hence the term “shaping functions”): 

DECLARE A12 ARRAY(I2) INTEGER; 

DECLARE A4X3 ARRAY(43) INTEGER; 

DECLARE A3X4 ARRAY(3,4) INTEGER; 

[AI2) INTEGER|2((A4X3)); 

[A4X3I * INTEGER4 3([AI2)); 

(A3X4I = INTEGER3 4(|A4X3I); 

When, as in the last two statements above, the INTEGER or SCALAR functions possess 
multiple subscripts, the result is a multi-dimensional array; each subscript denotes the size 
of one dimension of the array. 

Each subscript of the INTEGER or SCALAR function must be computable at compile- 
time (i.e. each must be an arithmetic expression involving only literals and CONSTANTS). 
In addition to the subscript, the precision specifiers, (^SINGLE and ^DOUBLE may be used 
to change the precision of the operand. Just as in the VECTOR and MATRIX functions, 
the precision specifier is used as a subscript and must preced*^ *He array dimensions. Thus, an 
ARRAY( 1 2) SCALAR, S, can be converted to a 2x6 INTEGER DOUBLE array. I by: 


(11 " integer@double.2,6(IS1); 
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Exercises 

6.4.1 A Use vector shaping functions to provide a clearer solution to exercise 6.3C. 

(Note: This problem requires that the reader see Section 6.5.1 of the Language 
Specification.) 

6.4.1 B Given the following declarations: 

DECLARE X ARRAY(2,3) SCALAR INITIAL(2#(1.1 ,2.2,3.3)); 

DECLARE V VECTOR INITlAL(.l): 

State the types and depict graphically the values of the following expressions: 

a) INTEGER(X) 

b) INTEGER(X,X) 

c) SCALAR(V) 

d) INTEGER$(2,6)(2#X) 

e) MATRIX(3#V) 

0 VECTOR$6(X) 




End of Chapter Problems 

oA riu‘ median value of the elements of an array of odd dimension ma> be computed 
by sorting the elements in increasing order. Hie middle element of a sorted array is. 
m fact, the median value Write a program to find the median value of an array of 
-5 integers. A simple, though not very elTicient. sort algorithm may be described 
as follows- 

Kind the smallest element of the array. If it is not the first element, exchange it with 
the first. Then find the smallest of the remaining elements. If it is not the second 
element, exchange it with the second. Continue until the entire array is sorted. 

An advantage of this aigonthm for the median-value problem is that it is not neces- 
sary to sort the entire array, finding the 13th smallest element is sufficient 

oB We have n^ade many timings of 3 processes A. B, and The results of our timings 
are in in array TIM V.ALUES declared, 

riM VALlitS ARRAY(3.:5) INrhCER 

We no*v wish to process this information, finding the sum for all 25 timings of each 
process A, B, and C. and the sums of the tunes for each set of timings for A, B, and 
C (i.e . row and column totals). This information is to be put m an array together 
with the raw data, and this array is to be called TIMING DATA. 

Write a segment of code that will create this new array and do the necessary infor- 
mation priKessing. 

Include any assumptions made and any new variables declared. 


i 

A 
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7.0 PROCEDURES AND FUNCTIONS 

In HAL/S, the concept of a subroutine is realized in two forms; PROCEDURES and 
FUNCTIONS. Each is a block of code delimited by a block header and a CLOSE statement. 
These code blocks may be nested within PROGRAMS or within each other to any degree; 
scoping rules restrict the variables each block may reference, thus avoiding a large class of 
potential programming errors. HAL/S PROCEDURES and FUNCTIONS have two basic 
uses; to share a sequence of statements among different paths through an algorithm, and to 
segment a programming problem into manageable parts. 

7.1 USER DEFINED FUNCTIONS 

HAL/S includes a large assortment of built-in functions. These include trigonometric 
routines (SIN, ARCTAN), algebraic routines (SQRT, EXP), conversion fun^'tions (INTE- 
GER. VECTOR) and many others. These functions may be used in expressions along with 
variables, constants and operators; they add to the power of the language by eliminating 
much tow level coding and allowing sophisticated operations to be expressed very com- 
pactly. The set of built in functions is a part of the language, but HAL/S also allows the user 
to define new functions which may then be used in exactly the same way as the built-ins. 

One type of operation which occurs frequently in flight software is the limiting of a vari- 
able to a given range. A FUNCTION to perform this operation is shown below; 
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The function block is delimited by FUNCTION and CLOSE statements. The CLOSE state- 
ment is the same as in PROGRAMS; it consists of the word CLOSE and an optional block 
name. The FUNCTION statement contains three pieces of information: the label on the 
statement, which defines the name of the function, the names of the formal parameters 
(sometimes called dummy arguments), and the return-type of the function. 

LIMIT is a scalar valued function of scalan. This fact is denoted by the word SCALAR 
on the FUNCTION statement and the declaration of the formal parameters. In general, a 
function's parameters and return value may be of any data type; hence the return type must 
always be specified on the FUNCTION statement and the formal parameters must always be 
declared. Declaring the formal parameters prior to any local data is good programming prac- 
tice and should be treated as a requirement. 

The operation of the LIMIT function may be seen from the following illustration, which 
is a graph of Y-LlMIT(SIN(X),I/2); for 0 < x < 5 pi/2: 


IXniT: 

rUNCTXONIVAlUf, BOUND) SCALAR; 
OCCLARC SCALAR. 

VALUE# bound: 

ir VALUE > BOUND THEN 
RETURN BOUNO; 

IF VALUE < -BOUNO THEN 
RETURN -bound: 

RETURN VALUE; 

CLOSE limit; 
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Functions must always end by executing a RETURN statement. The RETURN state- 
ment always has one operand which represents the value of the function. The value returned 
may be a variable, as in LIMIT, or any expression of the appropriate data type. Sometimes 
the executable code of a function consists of only the RETURN statement, for instance* 
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Using these functions, the apparent mass of a 100-ton vehicle moving at 20 kilometers 
per second can be computed by: 


HASS: 

srtcoi kauw; 

DtCLA»E SCALAR, 

aisT.MASs, speed; 

TAU: 

rwcTiomvi scaiap; 

DECLAPE V scalar; 

DECLARE C CONST ANTf 2^0000 1 ; 

2 2 

RETURN SORTM - V / C W 
CLOSE tau; 

RETURN REST^MASS / TAUi SPEED >t 

CLOSE mass; 


APPARENT^MASS « MASS( 100,201; 
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As it turns out. the MASS function is not going to be very useful: Twenty kilometers 
per second ts so slow (compared with the speed of light) that the relativistic mass increase 
will be lost in the round-off errors inherent in the computation. To find the range over 
V hich this effect can safely be ignored, we could execute the following code: 

DHCLARE V SCALAR: 

DO FOR V * :50000 TO 0 BV -100 UNTIL 
ALMOST EQUAL(l.MASSO.V)); 

END: 

WRITE(6) THE ANSWER IS \ V; 


This code references an additional user function. ALMOST^EQUAL, which could be 
written as shown below: 
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ruNCTioNu, B> boolean; 
oecLAae scalar* 

A. B; 

DECLAttC TOlCffAfCe BCALABi 
XF B 0 TNCH 

lOlVtAiKt « .000001 ABStBM 

use 

tOLeoANce • . 000001 ; 

XF ABStA • B) > TOLeOANCe THEN 

BETUPN false: 

ELSE 

ffETUON tbue: 

CLOSE alhost^equal; 


AL.MOST EQUAL is a BOOLFAN-valued function of scalars, as denoted by the word BOO- 
LEAN on the function header and the declaration of the formal parameters. Hence the RE- 
TURN statements have BOOLEAN operands; TRUE and FALSE. 

Since no other data type is automatically converted to BOOLEAN, a BOOLEAN expres- 
sion is the only permissible operand to the RETURN statement of a BOOLEAN function. 
Likewise, the RETURN statement of a VECTOR or MATRIX function must be supplied 
with a VECTOR or MATRIX expression, respectively. Exact matching of data type is not 
always required, however; the same implicit conversions that can be performed in an assign- 
ment statement can also result from a RETURN statement. These conversions are: 

1. Single to double precision 

2. Double to single precision 

3. Integer to scalar 

4. Scalar to integer 

5. Integer or scalar to character 
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Aside from these exceptions, the value returned by a function must be of exactly the same 
type as that specified on the function header. 

The function header serves as a declaration of the function. Variables must always be 
declared before they are used in expressions; the same rule applies to functions as well. 
Therefore, function bodies are usually placed before their first invocation in a program. 

However, in the previous example, ALMOST_EQUAL was defined after it had been 
used in an UNTIL phrase. In this case it is possible to make a valid HAL/S program without 
moving the function body, by DECLARING the function before it is used, as shown in the 
example below: 
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CXiMPtf^N: 

CtCLARC V SCALAR! 

DECLARt AinOST.EQUAL FUNCTXOtl BOOLEAN; /•<—.»/ 

MAS?: 

FUMCTICNiPEST.rASS, SPEED! SCAUR; 

DECLARE SCALAR^ 

RCST.MASS, spied; 

TAU: 

FUMCTicNfvi scalar; 

OECLAPE V SCAUR; 


CLOSE TAU; 


CLOSE HASS: 

00 FOR V » 290POO TO 0 BY 
ENO; 

WRITC(B) *THE ANSMR ISS 
AUlOST.ICUAts 

Fmcncr;rA, b) bcolean; 

OECURE SCALAR, 

A. b; 


CLOSE alnost.cqual; 
CLOSE tXAItPlE.Nl 


•199 UNTIL ALNOST.EQUALf I • HASSt I » V ) > S 
v; 


The FUNCTION DECLARE statement has the same general foim as a variable declaration 
except that the word FUNCTION (with no argument list) precedes the type specification. 
Ot course it is always possible to place a function body before its first invocation as was 
done with MASS and TAU above, in which case the DECLARE statement is unnecessary. 



% 
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Exercises 

7. 1 A What values will be written by the following HAL/S program? 

PROBLEM: PROGRAM: 

DECLARE I INTEGER INITIAL(l); 

PkOCI: FUNCTION INTEGER; 

DECLARE I INTEGER INITIAL! 1); 

I • I + I: 

RETURN I. 

CLOSE, 

PRCC2: FUNCTION INTEGER: 

1 = 1 + 1 ; 

RETURN I; 

CLOSE; 

I « PROCI; 

WRITE(6) I; 

I - PROC2; 

1 = 1 + 1 ; 

WRITE(6) I: 

CLOSE PROBLEM: 




7‘6 hoctdum and Functions 

7. IB What are the syntax errors in the fotlowing HAL/S program'^ ( Line numbers are for 
reference only.) 

1) PROB2:PROGK\M; 

2) DECLARE X INTEGER: 

3) Y « Y +1: 

4) PROCI: FUNCTION INTEGER: 

5) DECLARE Y INTEGER: 

6) X-FRUCl. 

x*PKoc: 

8) X-X+1; 

9) PROC2 FUNCTION: 

10) X-X+l: 

11) V-Y+l: 

12) CLOSE. 

13) CLOSE. 

14) CLOSE PROB2; 
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7.2 ARGUMENTS AND PARAMETERS 


The types of the arguments pu.*ocd to a function must agree with the bratirn of the 
formal parameters The formal paramrU'rt (which some languages term 'v^'uniny argu- 
ments”) arc declared in the function ixxly: the function argumen/i arc tlitvic r\prcss>i>ns 
specified in the function invocation. For example in the invocation: 


. UNTIL ALMOST FQUAU l.MASSt t ,V)), 
(a^ments J 


The two arguments are H'alar expressions. The formal parameters are declare J in the func- 
tion body; 


ALMOST FQUAL: I UNCTION(A, 
DECLARE SCALAR.A.B 
DECLARE TOLERANCE SCALAR" 


(LOSE. 


BOOLEAN; 



Format parametej^ 


Format parameten in the functions discussed so far have all been scalars, but it is pouF 
ble for them to be of any basic data type: Integer, Scalar. Vector, Matrix, Boolean. Oiarac- 
ter, Structure or Bit. 1 he type of a formal parameter is determined solely by its declaration. 
The actual arguments supplied when a function is invoked must be of the same data types as 
the formal parameters. The exception to this rxie is that under some circumstances the 
actual argument will be automatically (implicitly) converted to the type required by the 
(unction. The conversions that are permitted are the same set that are allowed in an asaigjv 
ment statement ~ those that were listed earlier as allowable type conversions in the 
RETURN statement. 


The declaration of a formal parameter takes exactly the same form as any other 
DECLARE statement. The INITIAL and CONSTANT ' *trihutet may not be used, but 
otherwise, any attribute is acceptable. A function may have any number of formal param- 
eters. including Aero, 'ilie following is an example of a .upctton in which no arguments 
appear: 



7-3 hvcedttrn «iu/ Functtom 


n 

n 

n 

n 


roa* 

lu^ittioN XNttett; 

«;tuvn I * i; 

CL 09 I 901U 


The ROLL function returns an t itcger in the range I to 6*. It may be invoked as 
DO UNTIL ROLL ♦ ROLL - 7; 

Functions without parameters usually either access giobil data or perform some sort of in- 
put. ROLL gets its "input** from the RANDOM function, though reading cards or sensors is 
actually more typical. 

A function has only a data type, but formal parameters may have other attributes. In 
particular, a formal parameter may be arrayed. The following example is a matrix-valued 
function of arrays of vectors. The resulting matrix consists of the dot products of each :>air 
of vectors. 
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Whenever a uaer^eflnrd function is applied to an array, the result is an identically 
dimensioned array where each element is the result of applying the function to the corres- 
ponding element of the arrayed operand. 

Refore leaving the lubitct of functions, one more very important point must be made: 
So fitficikm imy modify my of in fonm! pommettn. That is, parameters are viewed as 
constants within the function body. As a consequence, (or example a formal parameter can- 
not be used as a hop iootiol variable since a lo^ control variable is modified on each itera- 
tion. 


*but mu mifptmfy MrW«ue4. See rxmiwt. 
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riu* prinurv intoiil ot (lu\ ruU* is to nuke HAt AS code e;isicr to lead uml maintain, tn 
languaKCs which do not have this restriction, it is not possible to detennine which variables 
are bong moddied by inspection ot a staleineni like "A - llSI'Hl UNC'iH.t'.l)).'*. In any 
language, it is reasonable to assumv that A is the only variable nuHlilied. In HAK/S. this 
assumption will always be correct. 


1-Acrdse.s 

7.M In example o. Al MOST I Ql^AL is declared a function in the declare group of the 
main-program block, 

With a minor modification to the ptograin. this declaration is unnecessary What is 
the change'^ 

7.2B In example 7, n is stated that while ROl.L returns an integer m the range l-<v its 
result <s not uniformly distributed. 

a) Why* 

b) Modify the I unction KOI L so that it is unifonniy distributed amt incorporate it 
into a program that will count how many times a pair of *‘dtee‘* must be rolled 
to have 7 come up 5 times. 

7.;r Write a HAIc'S program that will read from channel two arrays of 5 integers 
apiece, then cheek if e<>rrespondmg elements of the two arrays are relatively prune 
(i.e.. lOir greatest common divisor, or (K’D. is I) If they are not relatively prime, 
print out the pair and their 

A standard algorithm for computing the (H'l) of two numbers is ealicil the 
h'uelidean algoritlun. and may be described as follows 

Start with integers in and n. whose (iCI) isdesitvd. If n ^ 0, then (UDdn.n) - abso- 
lute value of m. Otherwise, let r be the remainder resulting from dividing in by n. 11 
r “ 0, then (l(’l)(m.n) = absolute value of n. Otherwise, it is the ease (hat IK'IHm.n) 
= (lCM)(n.r) Since, by the detlnition of the remainder, r will decrease in absolute 
value on each iteraiion. it will eventually become zero. I he algorithm is ‘hus guaran- 
teed to terminate. 

Note The algorithm will work for any pair of integers, jHisitivc, negative, or /eixv 
The HAl /S built-in function KI MAINDI K (M.N) gives the remainder when M is 
divided by N, as requin'd by the algorithm 

7J PROCIiDUKBS 

\ pn>eedure is a code block similar to a function. The primary distinction is that proee- 
duris do not return values. The RMTIKN statement can be used m a procedure, but no 
opeiand may be provided. When the RI'HIRN statemeni ,s executed in a proeeduie, control 
is rv turned to the caller, fhe Rl* TURN statement is not nniutred in a procedure, as proce- 
dures (unlike functions) will return if (he How of control roaches the (T OSI* statement, 


..H. — - 


* 
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Ttw only wiy to invoke « procedure is vie the call stitemcnt. Ph>cedurt invocationjt are 
noi used in expresstonji. 

The CALL statement consists of the keyword CALL followed hy a procedure name and 
a list of arguments (if the procedure has deHned any parameters); e.g.: 

CAcL PRfX'l (X.Y.Z); 

Y. and /. are the arituments; the prxKedure defines its formal parameters just as in func^ 
tions: 


PAOCI: PROCEDURF (A,B,C 
DECLARE SCAI AR,A,B.C 
DEC LARE Q VECTOR 


RETURN': 
CLOSE PROCl ; 



Formal parameters to procedures are like Ainction parameteni in all regarxts. and may 
not he moitifled within the procedure. Procedures also have ASJP’ N parameters, described 
below, 

Suppose that the DOTS ftmetion of section 7.2 where LOT., L„ VAR is declared a 
10 X IQ matrix was typically used in statements like: 

LOCAL VAR«DOTS(|VIMV2|): 


In this statement, the IKITS function i.s not used tn an expre.s.sion. but is directly assigned 
into LOl'AL . VAR. In such a case, some incfEciency results from coding DOTS as a func- 
tion. This is because when the RETURN statement is executed, the 100 scalar components 
of RESULT are a>pitd into LCKAL VAR. A hotter arrangement would he to code IX)TS 
as a pn>cetlure and invoke it by: 

CALL rX)TS(IVIMV:i) ASSlC;NtL(X'AL VAR); 


The UOTS pn^cedurt could be coded as shown below; 
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Here wc sec an exampte of an assign paramt^tcr^ RHSULT. The statement. “Db'CLARH RE- 
SULT MATRIX! lO.U)),” lUx's not create a variable as it did in the function DOTS, but 
merely defines the data type of the assign parameter. Hach assignment into RKSULT 
directly modifies LCX'AL VAR. Thus, no copying of data is needed. 

Since variables used as assign arguments to procedures can be directly moilified from 
the procedure body, no c\»n versions whatsoever are tnrrmitted The tvpe of ihe rariahie 
fuisseJ a% an assign argument must agree exaetiv with the deciaration of the assign param- 
eter In the program segment below, A is the only variable which may be passed to P. 

m-CLARH A INTK.HR, 

B INTbX'.HR IX)UBU:. 

C' SCALAR. 

D ARRAYCl INThXU R. 

P. PRCK'FDURP ASSK.N(X); 

DICLARF X INTI C.FR; 

X = 0; 

CLOSfc P; 

A proceduR' may have any number of formal and assign parameters in any combination. 
Thus, several values can be computed in a single procedure, as shown below: 
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statistics: 

rROCCDtS?E(DATA) ASSIGNUO.VAL. HI VAL» KEAN); 
OECLACE DATA ARRAY! 100 > SCAUR: 

OtCURC SCALAR. 

LO.VAlt HI VAL* HEAN; 

LO.VAL > niNtlOATAD: 

KI_VAL < flAXltDATAli; 

HE AN 3 SUHUDATAD / 100* 

CLOSE statistics; 


This procedure could then be used as in: 


DHCLARH SAMPLFS ARRAY! 100) SCALAR; 

DI CLARH SUMMARY ARRAY(.D SCALAR; 

CALL STATISTICSfSAMPLKS) 

ASSIC.N!SUMMARY$ I .SUMM ARY$2.SUMMARY$3); 

WRITK(6) *Min, max and mean are: ‘.SUMMARY; 

Unlike formal parameters. as.sign parameters may also be modified, as in the following 
procedure which sets “AU(i LAST4“ to the average of Ihe four most recent values of 
INPUT: 
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FILTtff: 

PROCEOtVEf XNPUTI ASSIGNC AUC.UST4. eUEM; 
OECUPE SCALAR? > 

INPUT. AU6.1AST«; 

OECUffS BUff ARRATUI SCAUP; 

IBurfj 8 (euFFi ; 

l TO 3 2 TO 4 

BUFF * INPUT; 

4 

AUG.LA8T4 = SUH<( BUFF ]) / 4! 

CLOSE FUTEP; .. _ 


In this example, components of BUFF appear on the left and right sides of assignment state- 
ments. BUFF is probably not used by the code which invokes FILTER. It is passed as an 
assign parameter because a separate version must be maintained for each user of FILTER. 

The rules concerning arguments and parameters are summarized below: 

1. Arguments may be expressions of any complexity, but their types must match those 
specified in the formal parameter declarations. The automatic conversions of preci- 
sion and between integers and scalars are performed, however. 

2. Assign arguments must be variables (possibly subscripted, but not expressions in gen- 
eral). They must match the types of the corresponding assign parameters exactly. 

3. Formal parameters may not be modified by the procedure or function which 
declares them. Assign parameters may be both referenced and modified. 

4. Copying of aggregate data (such as vectors or arrays) occurs only as a result of func- 
tion returns. If an argument (of any type) will not fit in a machine register or accu- 
mulator, its address is passed to the procedure or function. Thus HAL/S uses **call 
by name** for aggregate formal parameters as well as for assign parameters, even 
though the restriction on modification of formal parameters gives the appearance of 
**call by value**. 




Exercises 

7.3A Rewrite the improved ROLL function of exercise 7.2B as a procedure, and modify 
the surrounding program to invoke it properly. This provides an alternate solution 
to 7.2B. 

Which of the two solutions is preferable? What general observations does this suggest 
about the choice between procedure and function forms, when both are possible? 
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7 A SCOPING RULES 

Hie HAL/S sloping rulci for variables may be summarized as follows: 

I A variable may be referenced throughout the block in which it is declared and 
throu.^hout any blocks nested in that block, provided that the nested blocks do not 
declare another variable of the same name. 

2 . A variable declared in a nested block cannot be referenced from an outer block. 

3. If vanables of a given name are declared in several blocks, each reference selects the 
version in the nearest enclosing block. 

HAL/S procedures and functions may be nested within programs, or withm their proce- 
dures <>nd functions to any degree. 

This block structuring capability m conjunction with the scoping riles above enables a 
measure of functional modularity in the development of software. In other words. HAL/S 
allows the collection of related procedures (anc functions) into fun''tionaI entities (them- 
selves procedures or functions). The local resources within these entities, viz. declared vari- 
ables and nested procedures become unavailable, actually unseen, to 'outsiders*. Communi- 
cation takes place only on the highest, most visible levels. 

Procedure and fun tion names are also affected by scoping rules in that a procedure or 
function may be inv jked from the immediately enclosing block and from any other blocks 
which are nested ir. the immediately enclosing block. An exception is that a procedure or 
function may not be referenced from within itself; HAL/S does not allow recursion. 

The following diagrams illustrate the scoping of block names. In each diagram, the 
shaded area indicates the region from which the block marked with an asterisk may be in- 
voked: 
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7.5 ARRAY(*K AUTOMATIC, AND NONHAL 

In the previous section, a procedure was written to find the minimum, maximum and 
mean of an array uf iOO scalars. The STATISTICS procedure would be more general if it 
would accept an array of any size. The routine is rewritten as fellows: 


n statistics: 

n P»CCIDl1tE(0ATAI ASSISNUO VAl. HI VAt, HCANli 
n OCCLARC DATA ARRAY(«I SCALAR; 
n OeCLARE SCALAR, 

n LO.VAL, HI.VAL, MEAN; 

n LO.VAL « niNdOATAU; 

f1 HI.VAL * tlAXtlDATAli; 

n niAH = sumUdataJi / sized data In 

« CLOGg statistics; 


Two changes have been made: First, the formal parameter, DATA, has been declared as an 
ARRAY(*), DATA is still a linear array, but its size may now vary from invocation to invo- 
cation. Second, the constant 100 in the computation of MEAN has been changed to the ex- 
pression SI/E(DATA). SIZE is a built-in function which returns an integer denoting the 
number of actual elements in an ARRAYC*). 

The asterisk may be used as an array dimension only in the declaration of a formal pa- 
rameter. An array of any data type may possess this attribute, but all such arrays must be 
linear (single-dimensional). 

Even though a procedure or function may be written to accept an array of arbitrary size, 
the size of each actual argument must still be known at compile-time. Thus, given the 
STATISTICS procedure above and the declarations: 

DECLARE A ARRAY(IOOO) SCALAR; 

DECLARE SCALAR,X,Y,Z; 

DECLARE J INTEGER INITIAL(60); 

The statements, 

CALL STATISTICS(A${I TO 60)) ASSIGN(X,Y,Z); 


and 


CALL STATISTICS(A$(6I TO #)) ASSIGN(X,Y,Z); 
are both legal. 
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But; 

CALL SrATISncS(A$(l TO J)) ASSIGN(X.Y7-); 

is not legal because J is not a constant; t.c. the wullh of the partition ( I TO J) is not known 
until runtime. 

7.S.1 AutomaticInicUlizaHon 

The following function will correctly sum the array of vectors, V. oniy on its first invo- 
cation: 


n vsurt: 

M FU»4CT1CN(VI VtCTOffJ 

n cfcim V vrerra; 

n OCCim TOTAL VCCT09 XNXTlAUOi; 

n 00 foa nnpoiRARt n * i to sizciIvIi: 
e ' 

n TOTAL » TOTAL ♦ V S 

$ H: 

n end; 

i 

N RCTlffN TOTALS 

n CLOSE vson; 
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The problem is that TOTAL is initialized to zero only on the first invocation of VSUM. One 
way of correcting the problem is to add the statement, ‘TOTAL » 0;'* before the loop. A 
more convenient means of attaining the same result is to replace the declaration of TOTAL 
with: 

DLC LAKE TOTAL VECTOR INITIAL(O) AUTOMATIC; 

The AUTOMATIC' attribute controls the manner of initialization of a variable: .-tfi 
AUTOMATIC variahlt is set to its tSTTlAL raiue on each entry to the containing cotfe 
Mock. In effect, the compili^r generates an assignment statement for each auiomatically 
initial i/ed variable immediately after the declare gfx>up of the containing block. 

It is important to remember that by default, initiali/ation is STATIC (the opposite of 
AUTOMATIC). If the AUTOMATIC attribute is not specified, initialization occurs only 
once, at the time when the program is first loaded. 

7.5.2 The NONHAL Attribute 

Sometimes it is desirable to program an application in a mixture of HAL/S and non- 
HAL/S crnle. either to capitalize on existing software or to make machine-dependent 
operating system interfaces which are not available in HAL/S. When the non-HAL code 
consists of Subroutines (procedures and/or functions) there is a convenient way of making 
them accessible to HAL/S. This is the NONHAL attribute, used in a declare statement. An 
example is: 

DECLARE CPU COST FUNCTION SCALAR NONHAL(I); 


* 
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The form of this statement is essentially the same as the declaration of a HAL/S function 
that will be referenced before it is defined. The only difference is the NONHAL attribute, 
which indicates that the function body is not included in this compilation. Note that the 
data type of a NONHAL function must still be supplied. 

A similar form may be used to define a procedure written in some other language, e g. ; 

DHCLARE PEARSON CORRELATIONS PROCEDURE NONHALC); 

Since a procedure has no data type, none is supplied m the declaration. NONHAL proce* 
dures and functions may have formal parameters; the number and types of these parameters 
is not specified in the dcdaration, and in fact, may vary from call to call. No type checking 
is performed on the arguments to a NONHAL procedure or function, and these blocks may 
even modify their input parameters: hence, great care should be takei. when using the 
NONHAL attribute. 

The operand to the NONHAL attribute, which consists of a positive integer, indicates 
the particular language in which the subroutine was written. The association of each number 
with a particular language is implementation dependent, and some compilers may not sup- 
port NONHAL at all. 

These statements may not be used to interface separately compiled HAL/S modules. A 
means of sharing HAL/S subroutines between separate HAL/S programs will be presented in 
Chapter 1 1. 
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End of Chapter Problems 
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vmsider the above nesting diagiim that depicts the scoping of blocks. 

For each of the procedure blocks numbered 2-6, write the numbers of the blocks 
from which that procedure may be invoked. 
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As in exercise 2B, a ball is thrown from a height of 1 10 feet with a horizontal veloc* 
ity of 4 ft/sec. Suppose that it now rebounds to 75% of its previous height on each 
of 10 bounces* and consider the following skeleton of a program to compute the 
time until the tenth bounce: 


DO FOR I = I TO NUMBER^OF^BOUNCES; 

DROP.TIME * TlML TO^DROP (HEIGHT); 

CALL HORIZ MOTION (DROP.TIME) ASSIGN (HORIZ^DIST); 

TIME « TIME + DROP TIME; 

WRITE(6) ‘BOUNCE’. I. TIME*. TIME, HORIZONTAL 
DISPLACEMENT*, HORIZ^DIST; 

CALL BOUNCE ASSIGN (HEIGHT, BOUNCE.TIME); 

CALL HORIZ^MOTION (BOUNCE^TIME) ASSIGN (HORIZ_DIST): 
TIME * TIME + BOUNCE^TIME; 

END: 

CLOSE DROP; 

Complete the program by writing all necessary declarations, initializations, proce* 
dures, and functions. 


In exercise 5A, a program was written to compute the value of a definite integral of 
the SQRT function using Simpson’s rule. Modify that program to compute the value 
of a definite integral of a function of the form f(x) = ax* + bx* + cx + d. Assume 
that the quantities a, b. c, d. initial , final, and epsilon are available in that order on 
channel 5. 

The increased modularity and readability brought about by the use of procedures 
and functions is net without cost. Procedure and function calls are typically some- 
what expensive in terms of computer time, and their over-use can unnecessarily slow 
down a program. 

For example, in problem 7B, the procedure HORIZ.MOTION could easily be elimi- 
nated. Furthermore, on the last bounce, the height and time of the next bounce are 
computed, even though they will never be used. Assuming that efficient use of com- 
puter time is here of primary importance, rewrite the solution so as to eliminate 
these two sources of inefficiency. 
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8.0 I/O AND CHARACTER STRINGS 

The HAL/S I/O statements, READ, READALL, WRITE and RLE, are designed to pro* 
vide a convenient interface to external devices used for software checkout and non^Hight 
applications. The READ, READAI L, and WRITE statements perform sequential character 
I/O to such devices as card readers and line printers. The Hie statement transfers binary 
(unformatted) data to and from random-access devices such as drums and disks. These 
statements are all designed to provide the basic capability of getting data in and out of a 
HAL/S program with a minimum of programmer effort. 

For sophisticated ground applications, the simplicity of these statements can be a dis- 
advantage when highly formatted output is required. To give the programmer complete 
control over input and output formats for those applications that require it, HAL/S provides 
a comprehensive set of character manipulation facilities. Any data type may be converted 
to a character string; operations on the resulting string can produce any desired representa- 
tion of the original data. 

Although most flight computers do not have interfaces to character devices such as line 
printers, it is common practice to use ground based computers for early checkout of HAL/S 
code. HAL/S I/O statements can then be used to address the wide range of external devices 
(peripherals) found on such computers. 

8.1 THE WRITE STATEMENT 

The WRITE statement has already been used in the examples of the previous chapters. 
A typical instance was: 

WRITE(b) ‘THE ANSWER IS*, V; 

Although this statement was not fully described at the time, the assumption was made that 
the string “the answer is" and the value of V (a scalar) would come out on some sort of 
printer. The following paragraphs describe the manner in which the output is sent to a 
particular device and the format in which it is printed. 

The routing of output to a particular device is controlled from outside of the HAL/S 
program. Each WRITE statement specifies a channel number (in this case, channel 6). 
A channel may be thought of as a virtual device or as a port between the HAL/S program and 
some peripheral. HAL/S defines ten channels, numbered zero through nine, which are 
used in READ and READALL statements, as well as in the WRITE statement. At the 
HAL/S level, all channels are equivalent; it is only at execution-time that the channels are 
associated with actual devices. Hiis association is made in an implementation dependent 
manner: it is usually done through some type of “job control language*’ or through com- 
mands at an interactive terminal. The appropriate HAL/S User’s Manual must be coasulted 
for details. In most systems, however, channel 6 is automatically associated with a line 
printer. 
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The channel number used in HAL/S 1/0 statements must be an integer expression which 
is computable at compile time (i.e„ composed entirely of literals, constants, and the basic 
arithmetic operaton). It is good practice to give a name to each channel via the REPLACE 
statement, as shown below 

REPLACE PRINT BY *‘6”: 

REPUCE CARDS BY 
REPLACE TERMINAL BY “7”; 

OECURE I INTEGER, S SCALAR, D SCALAR DOUBLE; 


READiCARDS) I, S, D: 
WRITE(PRINT) I, S, U: 
et‘\ 


Naming channels in this way has several advantages: First, if the channels are well named 
the program will be more readable. Second, it is easier to change the number in one 
REPLACE statement than the channel numbers in a collection of WRITE statements. 
Finally, it is possible to find all of the I/O statements which use a particular cttannel by 
looking up the cross reference for the channel name. The naming could alternately be done 
by declaring integer CONSTANTS. 

After the channel number, the remainder of the WRITE statement consists of a series of 
expressions. There may be any number of expressions of any datatype; any construct 
which has been termed an expression in this book may be used in a WRITE statement. In 
the previous examples, the expressions have all been simple variables, but they may be of 
any complexity. Thus, values that are needed only for «.utput need not be stored in a 
variable. A program to compute one of the roots of a qurdrrCic equation given scalar coeffi- 
cients A, B and C, might consist only of; 

READ<5) A. B, C; 

WRITE(6) (>B ♦ SQRT(B**:-4 A C))/2 A; 

When any type of data aggregate (ejr-. VECTOR. ARRAY) is written, it is first unraveled 
into its individual integer, scalar, character, or bit components. These components or array 
elements are then transmitted to the external device. The sequence is the same as was 
described in cordunction with shaping functions in Chapter Six. For instance: 

DECLARE M ARRAYS) MATRIX; 

WRITE16) M; 

results in the components of M being transmitted in the sequence; 


M$():l,l)Jil$(|:l,2),M$(l:14)Jd$(l;2J)AIS(l:3.2)...MS(i:33). 

M$(2:U)...MS(2.33) 
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When a data aggregate unraveled in a WRITE statement, the original structure may not 
be retained.* In the absenc' of the I/O control functions (discussed in the next section), 
all of the output from a single WRITE statement is placed on as few lines as possible, with 
only spaces separating the operands and the elements of each oi>erand. The number of 
spaces placed by default between successive values (termed the default ra^) is implementa- 
tion dependent. 

After the operands of the WRITE statement are reduced to a sequence of Integer. Scalar. 
Character, or Bit components, each component is converted to its standard external formal, 
which is a character representation of its value. Each of the four basic data types above has 
its own format. 

The standard external format of an integer is a string of decimal digits, preceded by a 
minus sign if the integer is negative. Enough leading blanks are appended to make the length 
of the resut* )g string constant for all integers of a given precision. This standard length 
varies from compiler to compiler, but is always large enough to contain any possible integer 
value. Leading zeros are never included in the represent;:: ion of an integer. The following 
table shows the output format of a few integer values for a compiler which assumes an 
integer field width of 6. 

Value Standard External Format 


0 0 

256 256 

-32.768 -32768 

-2 -2 

Double precision integers have the same format, except that the field width is approxi- 

mately twice as large. 


The standard e: emal format cf Kilars is Kientific notation in a fixed-width field. 
Scalars always take the form “bd.dddE±dd** or **-d.dddE±dd*’. where each **d*’ represents 
a decimal numeral. Exactly one non-zero digit always api^ears to ihe left of the decimal 
point and positive numbers are always presented with a leading blank. The number of digits 
to the right of the decimal point and the number of digits in the exponent are constant for 
any particular version of the compiler. These numbers are always chosen so that all of the 
precision contained in the scalar can be presented. The fixed field width simpUAes the 
writing of code to re-format scalar values as will be seen in subsequent sections. The fol- 
lowing table illustrates the output representation of various Kalar values on a computer 
with an eight digit mantissa and a two digit exponent. 

Value Standard External Format 


pi 

1/2 

-3 1/8 
.oom 


-1.000.000 

0 


3.1415927E^OO 

5.0000000E-01 

-3.1250000E400 

l.OOOOOOOE-04 

-t.OOOOOOOE^ 

0.0 


impitmtotstiom wilt print matricts out tow per Une automsticatty. but this it not a languagt 
requiiement. 
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Note in the table above that zero is treated as a special case. Double precision scalars are 
presented identically except that the standard width of the mantissa is greater. 

The remaining data types, CHARACTER and BIT (including BOOLEAN), each have 
two standard external formats. These formats are very similar, but one is more suitable for 
printed listings and the other w more suitable for output that is to be read back in by 
another HAL/S program. 

The programmer specifies which format is to be used for character and bit output by 
means of the device directive. The device directive is not a HAL/S statement; it is a corn* 
mand to the compiler which affects the way that subsequent WRITE (and READ) state* 
ments are interpreted. The device directive speciHes whether the output on a particular 
channel is paged (the format suitable for printing) or unpaged (the machine«readabte 
format). 

Paged output is organized into lines and pages. Since the WRITE statement is most 
frequently used to obtain printed diagnostics and results, paged output is generally the 
default. 

Unpaged output is simply a stream cf data values in a format compatible with the 
READ sutement. To designate a particular channel as unpaged, the device directive is used, 
as shown below; 

column I channel number 0-^ 

i i 

D DEVICE CIIANNEL*6 UNPAGED 

t 

no semicolon 

Compiler directives miy vary from implementation to implen>entation. All present 
compilers include the device directive as shown above. Other directives are described in 
HAL/S Users Manuals. Hiese directives should not be consideted as executable statements; 
the presence of a device directive anywhere in a compilaUon governs all uses of the sped* 
fled channel 

The standard external format of character strings on a paged file is simply the content 
of the string, with no conversions or padding. On an unpaged file, the character string is 
enclosed in single quotes O. The output from the statement: 

WRITE(6) THE ANSWER \$\ V; 
will be: 

THE ANSWER IS 7.5S362I0EH)5 
on a paged file, but will be: 


THE ANSWER IS* 7.5S3B2I0E40S 
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The s;andard external format for bit strings is a serie« of ones and zeros. As in character 
strings, bit output is enclosed in quotes on an unpaged file. A BOOLEAN consists of a single 
bit. so there are only four possible outputs as shown below. 


Boolean Value 

Paged Output 

Unpaged Output 

TRUE/ON 

1 

T 

FALSE/OFF 

0 

•0* 


Longer bit strings (see Ctapter i3) are output with a blank between every set of four bits to 
enhance readability. The value HEXM234* would be output as 0001 0010 001 1 0100 on a 
paged file, and as 1X)01 0010 001 1 0100* on an unpaged file. 

For character and bit types, only the unpaged format is compatible with the READ 
statement. Since these types are of a variable length and may contain embedded blanks, 
the quotes are needed to indicate the end of one value and the start of the next. 

In summary, the WRITE statement wiM evaluate a list of expressions of any data type, 
convert the resulting values to their standard external formats, and transmit these to the 
device which has been associated with the specified channel. There are no restrictions on 
the expressions in a WRITE statement, and in no case will any data be lost in the transla- 
tion to the standard external form. As a result, the WRITE statement is extremely easy 
to use if the format of the output is of little concern; this makes tt convenient for diagnos- 
tics, but less appropriate for report generation. 


Exercises 

8.1 A Why is it generally considered good programming practice to give a name to each 
channel for I/O functions and use the HAL/S REPLACE statement to assign the 
channel number? 

8. IB What happens when an executing program encounters a HAL/S WRITE statement 
followed by a list of expressions? What Umttatiens are there on the expressions 
that are legal in a WRITE statement? 

8 . 1 C Given the following decl&rations : 

DECLARE S SCALAR. 

I INTEGER. 

V VECTOR. 

M MATRIX. 

B BOOLEAN. 

C CHARACTER; 
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Which of these WRITE statements will produce output compatible with the HAL/S 

READ statement 

a) On a PAGED device? 

b) On a UNPAGED device? 

1) WRITE(6) S. I. V, M; 

2) WR1TE(6) \ 1. \ V = \ V; 

WRITE(6) V$l, V$3. VS2, B; 

4) WRnE(6) B. C; 

5) WR1TE(6) S, M. V$(2 TO 3), 1; 

8.2 I/O CONTROL FUNCTIONS 

When the statement : 

WR1TE(6)M; 

where M is a matrix, is executed, the three-by*threc structure of M is lost. The anangement 
of the components of M depends only on the field width of a scalar, the amount of the 
defavilt tab, and the maximum number of characters per printed line. If the width of a 
scalar is 13, the default tab is 5 and a line is 132 characters, then seven components will 
be printed on the first line, and the remaining two on a second line. To obtain a better 
arrangement, the following WRITE statement may be used: 

WRITE(b) MSd.M, SKIPd), COLUMN(I), M$(2,*), SKIP(I), COLUMN(I), 

M$(3.*); 

This statement will cause one row of the matrix to be printed on each output line. 

SKIP and COLUMN are I/O control functions. Syntactically, they resemble other 
functions, but they may only be used as arguments to the sequential I/O statements, WRITE, 
READ, and RHADALL. Each has a single argument which may be any integer or scalar 
expression: if the expression is scala^valued, it is rounded to the nearest integer. These 
functions do not return a value, but only control the location in a file where subsequent 
data will be read or written. 

The I/O control functions may be thought of as moving a read/write mechanism across 
a two dimensional medium. Tlie SKIP, LINE, and PAGE functions cause vertical movement 
and the COLUMN and TAB functions cause horizontal movement. In the example above, 
*‘SKIP(M, COLUMN(I)** moves the write mechanism to the beginning of a new line. Vit 
SKIP function causes relative movement (down one line), ano the COLUMN function 
causes absolute positioning (to the first column of the new line) 

The seqvience, “SKIP(1>, COLUMN(l)*\ is implied at the beginning of each WRITE 
statement. This automatic positioning will be overridden if the WRITE statement has 
explicit horizontal and vertical positioning functions prior to the first data operand. If only 
horizontal or vertical positioning is specified, then the default movement is partially ove^ 
ridden. In the statement: 
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WRITE (6) COLUMN(IO), M$(l,*); 

the default horizontal positioning to column one is overridden, hut the default vertical 
positioning to the next line is not. Likewise, the statement: 

WR1TE(6) MS(U), TAB(12), M$(l,2). TAB(I2). M$(l.i): 

would leave twelve blanks between the end of one component and the start of the next. 
Unless overridden by explicit horizontal motion commands, a TAB function is implied 
between each pair of data operands to the WRITE statement. The amount of the default 
TAB is implementation dependent. 

Using these functions, an array of matrices: 

DECLARE AM ARRAY(2) MATRIX(3,3): 

can be output in a readable form by: 

WR1TE(6), SKIP(2), COLUMN(IO), AM$(1:I,*), TAB(20). AM$(2:I,*), SKIP(I), 
COLUMN(l), ‘AM*\ COLUMN(IO), AM$(1:2,*), TAB(20), AMS(2:2,*), SK1P(1), 
COLUMjN(IO), AM$(I:3,*), TAB(20), AM$(2;3,*). SKIP(2); 

yielding: 



AM$(1:) 


AMS(2:) 


The effect of the remaining I/O control functions, LINE and PAGE, depends on whether 
they are used on a paged or an unpaged channel. On a paged channel, the LINE function’s 
argument must be in the range one to the maximum number of lines per page. The device 
mechanism is moved forward until the current line number is the same as that specified in 
the LINE function. This may cause the device mechanism to cross a page boundary. The 
most common use of the LINE function is to advance to the top of the next page, as in: 

WRITE(6) LINE(l), ‘This is a page header’; 

When used on an unpaged channel, the LINE function causes movement to an absolute 
line number within the entire file. 


The PAGE function may only be used on paged files. PAGE(n) results in relative move- 
ment by “n** pages; the current column and line numbers arc not affected. A typical use of 
the PAGE function is to skip over unwanted pages of header on input. 
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riio preceding pumgraphs apply equally lo all implementations of the HA L/S language, 
rile principal sanations between implementations are the number of columns tnrr line 
land lines tH*r page) and the result of requesting backward movement of the read/write 
mechanism. 

The statement 

WRITI (6> -RFSULTS t OUOW\ TABi I4h * 

ma\ have anv of several results, depending on lh»' compiler in use. On some systems, the 
two character strings may both be printed in the same columns of the same line, yielding: 
Rt SULTS FOLLOW . On other systems, the second character string may overlay the first, 
yielding just the iindorscoa's. Similarly. backward.s line movement may or may not be 
supported and may be device dependent, the elTcct of executing SKIP( Umay vary from 
system {y> system. The relevant User s Manual should always be consulted before requesting 
negative cohimn or line movement. 

I hc folhiwmg table summari/es cbe I/O control functions 


I/O Control Function 

Opemtiun 

SKI1‘(K' 

Relative tine movement 

Line * (Line + K) mod page si/e 

LINFlK) 

Absolute line movement 
bne =■ K 

fAB(K> 

Relative column movement 
Col = Col + K 

COLUMN! K) 

Absolute column movement 
C'ol = K 

PA(iF(K) 

Relative page movement 
Page = Page + K 


Fxerdsfs 


8.2A Consider the following HAL/S statements; 

f 


DFCLARF ARRAY(.^) MATRIX. MAT ARRI. MAT ARR:; 


WRITlift) MAT ARR I. MAT ARR^; 
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a) Describe what the resulting output would look like. 

b) Grange the WRITE statement such that the resulting output wilt be formatted 
as thus; 

IMAT.ARRl j . I [MAT_ARR2| . 1 

IMAT„ARR12;I (MAT_ARR22:J 

1 MAT_ARR 13;1 1 MAT_ARR 23.1 

8.2B For each of the I/O control functions below, which of the following statements 
apply to its use in HAL/S WRITE statements? 

a) default characteristics (implied unless overridden) 

b) causes absolute vertical movement 

c) causes relative vertical movement 

d) causes relative horizontal movement 

e) causes absolute horizontal movement 

1) LINE(I) 5) COLUMN(l) 

2) SKIPd) 6) SKIP(O) 

3) TAB(20) 7) SKIP(5) 

4) PAGE(2) 

8.3 THE READ STATEMENT 

The syntax of the HAL/S READ statement is also quite simple. Some examples (e.g., 
“READ(5) A, B, C;*') have already appeared in this manual; the general form is not much 
more elaborate. The READ statement consists of the word READ and a channel number 
followed by a list of variables and/or I/O control functions. The I/O control functions used 
in a READ statement work the same way as in the WRITE statement. 

When any type of data aggregate appears in a READ statement, the components are 
filled in the "^natural sequence”; i.e., in the same order in which they would be written. 
In the code: 

DECLARE A SCALAR, V VECTOR, I ARRAY(2) INTEGER DOUBLE; 

READ(5) A, V. I; 

data from the external Hie will be assigned in the sequence: 

A, V$l, V$2, V$3, I$l, I$2. 

If the file was originally produced (stored on disk, punched on cards, etc.), by a HAL/S 
WRITE statement, its contents will be in the appropriate format for the READ statement. 
Except for character and bit strings on paged flies, the standard forms produced by the 
WRITE statement are all acceptable on input. 

Input data prepared manually may be written in free format; all of the following lines 
are acceptable input for the READ statement above: 
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u) 0. 0. 0. 0, 0. U 

b) I 3E5 3.271 E+06 .001 24 2 

c> 1,2 3 4. 5 6 

The examples illustrate several points. First, it is not necessary to distinguish between 
integer and scalar values. Any sequence of characters which comprise a valid integer or scalar 
literal (as described in Chapter Two) is suitable to be read into either an integer or a scalar; 
however. noiHintegral values read into an integer wilt result in a runtime error. 

Individual values (in this case, numbers) in the input tile must be separated by blanks 
or other delimiters. One or more blanks, a single comma, or a single comma and any number 
of blanks are all equivalent. Multiple commas are a special case, wliich indicate “missing 
data'*. If the input file contained 

I. . 2. 3. 4, 5 

then the value of the second scalar in the READ statement above (VSI) would not be 
changed. 

When a semicolon is encountered in the input stream, the current READ statement is 
terminated. If the input consisted of: 

1.5, 2.6; 

then only two values would be read, regardless of subsequent values and punctuation m 
the file. This fact can be useful when a program must process a variable number of input 
values. For instance, a program to sum a sequence of numbers could be coded as: 


n 

H 

M 

n 

ft 

H 

S 

N 

S 

H 

H 

n 


ADOJ 

PP0G9AM; 

DECUPr TOTAL SCALAR INITlALtOI AUTCHATICi 
rECl/RC A APRAY(IOO) SCALAR INITIAKOI; 
PCAOISI (Al; 

00 FOR TtfIPOPAffy I s 1 TO 100 UNTIL A » 0; 

I 

TOTAL « TOTAL ♦ A ; 

I 

CND! 

WRtTCf6l 'TOTAL IS TOTAL i 

CLOss ado; 


One valid input to this program could be; 

-3.95. -17.31, -9.93, 572.35, -250, +1.10, -.45, +7.50, 

In this case, the READ statement would terminate when the semicolon was reached, leaving 
the rest of the array (A$ (9 TO 100)) equal to zero. 
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As illustrated above, a READ statement may take data from many lines of a Hie. Lines 
will be processed until either a semicolon is reached or values are found for all of the oper- 
ands of the READ statement. The end of each line of input (e.g.. card column 80) serves 
as a delimiter equivalent to a blank. Hence, individual values may not be split across lines. 

As in the other sequential I/O statements, WRITE and READALL, a SKIP(l), 
COLUMN(l) operation is impMed at the beginning of each READ statement. This may be 
overridden by the same means used in the WRITE statement; e.g., 

READ(5) SKIPiO), TAB(0>, X; 

can be used to read data to the right of a semicolon which terminated the previous READ 
statement. If the input data happens to be stored in fixed card columns, then the TAB and 
COLUMN functions can be used to skip over unwanted data. 

Any attempt to read past the end of a file will result in a runtime error. Chapter Ten 
describes a mechanism for recovering from this and other errors. 


EXERCISES 

8.3A Let the program ECHO begin as follows: 


ECHO: PROGRAM; 

DECLARE INTS ARRAY(3) INTEGER INITIALd), 
SCALS ARRAY(3) SCALAR INmAL(0); 
READ(5> INTS, SCALS; 


What will INTS and SCALS contain given the following inputs? 

a) 8, 7, 6.55, -*1, 2.25E2, 4; 

b) -IE-1,,, 7.2; 

c) 2.49„2.51,2.49,.2.51; 


8.3B Suppose input intended for the program ECHO of problem 8.3 A has been formatted 
as follows: 


Col. 1 Col. 8 

I i 

INTS: 3 4 5 

SCALS: 6.1 7.2 8.3 


Col. 78 
4 

00000001 

00000002 


Modify the READ statement in ECHO to ignore the labels on the left and the 
sequence numbers on the right, and read in the values for INTS and SCALS 
properly. 
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H.4 t’HARAClIiR STRINGS 

A MAI. 'S duinioicr vjrtaMo nu> contain a string ot* charjctO!>. i!!r miinlH’r of charac- 
ters IS allowed to vary at ninlinu’ from /oa> up to a maxiinum spocirtcd in the declaration 
of the variable. The character daiatytv is declared in the same general way as other data 
tyt>es, e.g., 

OKTARI SVARS CHARACn Rt.M INIl IAU‘*****‘l; 

Mie variable STARS is a character string of maximum length live and initially con- 
taining live astensks. Tach character variable h^s both a maximum length and a curn'iit 
length. The cura'iil length is adjusted every time the variable is assigned, though it can never 
become greater than the declared maximum. If the length of the string on the rightdiand 
side of an assignment exceeds the maximum length of the target variable, eharact^Ts are 
truncated from the nght before assignment. In the cvhIc beU>w, RATINC'. starts with a 
length of zero fit is imtiah/ed to the null s(nng). but after the assignment the cummi 
length becomes Ihn'e 

DICLARI RATING niARAnTR(5) INITIAU* ). 

PITLARl QDAlirV INTMU R INiriAU.M. 

RATINfi STARSStI TO QUALITY); 

As shown, the general form of character subscripting is the same as vector subscripting, 
except that the width of a partition dix's not have to be known at compdo-time. 

In addition to subscripting a character string to pick out a single character or a sub- 
string. MAT'S prmides an otvraior for putting two stnngs together. Hiis is the catenation 
operator, denoted by the keyworxl ‘X'AT*’ or by the sign ** I I ", The effect of this operator 
is to append the right-hand o(H'rand to the end of the left-hand openuul; 

•ARC ' I i Wr 


yields. 

•ABCmF’. 

Hiaracter strings may also be compared with each other, as in 
II RATING NOT « *•••' THI N I XU . 

and may be compared for **givaler than'* or “less than'’ m onler to sort them alphabetically. 
The latter capability is alTected by the collating sequence and is therefoa* iiuplementation- 
detHmdenl. More details can be found in the appropriate Users Manual. 

HAL/S also pawides a set of built-in character functions (listed in Ap|vndt\ A). Pie 
following paragraphs describe some of dicse functions as well as paividmg some practical 
examples of character oivrations. 
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One of the major uses of character variables and operations in HAL/S is formatting out- 
put. In the WRITE statement below, the value of the integer variable N will be inserted 
in a line of output: 

DECLARE N INTERGER: 


WRITE(6) THE ANSWER IS \TAB(0).N JAB(0)/ FPS'; 

If N is six, the output from this statement will look like: 

THE ANSWER IS 6 EPS 

T!us statement illustrates an important rule; whenever an integer or scalar is used in a 
character expression it is converted to its standard external fonnat (a character string). 
The standard external format of an integer includes leading blanks. These blanks can be 
removed by means of the TRIM built-in function^ as shown below: 

WRITE(6) THE ANSWER IS \TAB(0),N,TAB(0)/ EPS’; 

This statement will produce: 

THE ANSWER IS 6 EPS 

The TRIM function removes all leading and trailing blanks from a character string. Its argu- 
ment must be a character expression; thus N is converted to character before the invocation 
on TRIM in the statement above. 

Simitar character functions are RJUST and DUST, which add leading and trailing 
blanks, respectively. Each of these functions takes two arguments, a character expression 
and a field width. These functions right or left -justify the value of the character expres- 
sion in a field of specified width. With N* 6. RJUST(N.2) yields ‘ o’ and UUST (’XYZ\4) 
yields ‘XYZ \ 

Note that within the quotes of a character literal, blanks are treated the same as any 
other character. Any character may be used in a quoted string. 
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Like \aruhlcs o!’ an> data lyjH’, character stnni» may be arrayed. Hie following func- 
tion could be used to display the value of a binvlean (B) in the format specified by an 
integer ( I'VPI ) 


H 

STATt: 


FUUCnCNIB. TYPCI CNAffACTIfft S i 1 

rt 

CrCLARE B BOOICAN. 

M 

TVPt INTtCtR; 

n 

DCCLAPE TES ARffAVMI CNAffACTEIM $1 INITIAU 'TRUE S ’ON*. ’OPIM', ‘VALtOMI 

rt 

OICLAPE no ARHAU<»I CHARACTIIM5I INITIAU ‘PAISE’, 'OFF', 'SHUT*. 'ERPOKM: 

« 

IE B THEN 

n 

UtTUPM YES ; 

s 

J\Pl' 

n 

• 

USE 

c 

rt 

REnjpN NO ; 

s 

type: 

rt 

CLOSE STATE; 


Hus function couUl be invoked as shown below 

DK LARI B(H>L1 AN INITlAUOl I >. VALVl\ POWI R, 

WRiri(o) •VALVl>\SlAn(VALVi:..M/IHWLR=\STATRPOWl R.:^ 

Piis example would produce. 

VALVI -SHUT POWLR-OFF 

Hie concepts of maxinuim length and current length apply tocut7i r/ewicw/ of an array, 
and to tlie value returned by a character function. The maximum lengths of all elements of 
a character array are equal, but the current lengths may vary . Huis. the length of the value 
returned by STATI* can vary' from two to five. The maximum length on the function 
header can never be exceeded, however, if “RFTURN 'ABC’DI lTr:'* was executed, tin 
string would be truncated at the right yielding *ABC'nL\ 

It should be noted m the example above that the n^*' element of a character »irray such 
as YLS IS represented by ”YLS$tN )" and not "YLSSN'*. nie trailing colon must be sup- 
plied to indicate the absence of component subscripting just as in arrays of vectors, matrices 
and Bit Strings (Booleans). As before, both array and comivnent subscripts may be supplied 
if needed. YlS$t3:2) is the second character of the third element of YLS. T’. 

A few examples of automatic convereion to character tyiv have apt>eaa*d above. It is 
also iHvssible to explicitly convert to character tyiH? via the CHARACTER shaping function. 
ThU function is syntactically identical to the INTIiltbR. SC'ALAR. VI CTOR, and MATRIX 
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shaping (unctions described previously. It converts its argument or arguments to their 
standard external formats. It has an additional form that allows conversions to octal or 
hexadecimal as shown below: 

WRITE(6) CHARACTER$((-<XTHBIT(N». 

If the integer N is equal to 19, this statement will produce the output: 

‘0000000035*. 


When the CHARACTER function is subscripted with a radix f^XXTT or (*HEX). its oper- 
and must be a bit string. The BIT function above is not fully described until Chapter I3« 
but in this case it merely returns a bit pattern equivalent to its argument. 

Another use of the character manipulation facilities is reading data thet is not in the 
standard HAL/S format. Integer data that has been punched on cards in the format shown 
by the table below could be read in by the HAL/S statements which follow it. 

input Format 


Cohimns 

Description 

1-3 

case number 

4-5 

age 

6 

l»male. 2”female 

7-10 

X factor 


Example of Input 

1I526I278I 


n 

H 

H 

n 

n 

t 

N 

i 

n 

a 

t 

n 

a 

I 

n 

a 

I 

n 

a 

N 


moGVAm 

DCClAtl e CHAVACTIitiOM 
OtCLASC ZNTCGIt* 

CASE.NUni ABC. SIX. HI 

acAOAuiai ct 

CASi.Nun • tNTtacaic m 

1 TO S 


ABC > IMTCaCatC u 

a TO a 


aix « tNTcacffic n 

h 

X « iNTItCetC It 

T TO IB 

Ctoai AMI 
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This would yield the following values: 

CASENUM =115 

AGE = 26 

SEX = I 

X = 2781 

When the argument to the INTEGER shaping function is a character string, all of the 
characters must be in the range 0 9 (i.e.. comprise a valid integer). Titus, this code would 
not work if the CASE^NUM field (for instance) was coded with leading blanks instead of 
leading zeros. The TRIM function can be used to make the program more tolerant as in: 

CASE_^NUM * INTEGER(TRIM(C$(I TO 3))); 

The READALL statement used to obtain C from channel 5 (probably a card reader) will 
be fully described in the next section of this chapter. 

Since the standard external format for scalars is not always convenient, a character func- 
tion like the one below can be used to write a more readable XX.YYY notation: 


M acroartAT: 

rt rUNCTICMtX. DCCXHALS* UIDTHI CNAAACniM2e>; 
n oecLin x scaiav. 
n occirtALs xNTccea. 

n UIOTH iNTCGCa; 

C X IS THE TO BE CONVCRTIO* OCCIfULS 1$ TM| NUftMR Of 

C DIGITS TO fit PRINTED AFTER THE QCCXHAL POUT. AMO UXOTN IS 

C THE TOTAL LENGTH OF THE STRING RETURNED 


H 

n 

n 

n 

n 

n 

H 

E 

n 

H 

H 

n 

H 

E 

N 

H 

E 

n 

s 


DECLARE Y SCALAR; 

DECLARE C CHARACTER! 20); 

DECLARE S CHARACTERl 1 1; 

DECLARE ZEROS CHARACTERl 20 ) CONSTANTI CHARI 20 > O'l; 
IF X < 0 THEN 

do; 

y » -x; 


end; 

ELSE 

oo; 


s • 


y • xt 


1 ■ • 

end; 

* OECIRALS 

C • CHARACTERl INTIMR 110 VIM 

OOOUBLE 


H 

n 


IF LEN3TNICI < DECinALt THEN 

C ^ ZEROS II Ct 

1 TO OECXtULS-LSNBTHICI 

RETURN RJUSTfS II C II *.* II C . UXDTNII 

1 TO R*0ECirULS ••OCCIHAlS-1 TO t 


N 


CLOSE REFORmTt 
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With the function before, 

WRITE(6) REFORMAT(SQRT(2), 3, 5); 
would yield: 

*1 .414'; i.e., a five character field with three decimal places. 

Two new features are introduced in this example. First, the expression "CHAR(20)*0*" 
is a shorthand notation fcr the string consisting of twenty zeros. It is a character literal 
which may also be used in an assignment statement such as: 

C - CHAR(80)' /*blank card*/. 

An addittonai built-in function. LENGTH, is also used. LENGTH takes a character variable 
or expres«on as an argument and returns an integer representing its current length. 

The REFORMAT function shown here has one deficiency: does not check X for 

being too large for a Held of width WIDTH. A good fixup woulo be to return part of X in 
scientific notation if it is too large for the field. This improvement is left as an exercise. 

Excrdses 

8 4A Which of the following expressions are lepl character subscripts? Which are legal 
vector subKripts? (Assume all variables are of integer type.) 

a) (4) 

b) (HI) 

c) (7 AT 3) 

d) (2 TO 1-2) 

e) (6 AT l+J) 

0 (I TO J> 

g) (K TO K-l) 

8.4B What will the output be from the following program? 

PROG^E: PROGRAM; 

DECLARE CH CHARACTER(15) INITlALCAfiC'); 

REPLACE PRINT BY ‘*WR|TE(6>’*; 

PRINT CH. CHIICH; 

CH • *123MiCHU‘456’; 

PRINT CHSU TO 5). C1W5 TO #); 

CH • CHSd TO 2)1 ICHI(3 AT #-5); 

PRINT CH. CH(#-2 TO #); 

CLOSE PROB^B; 
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8 4;. Given the foilowing Uedarjlions anJ alignments, which ot the following compan* 
sons arc true? Assume that *A* < ‘B* < . . . < *Z*. 


DFCLARt C I5 CHARACTLR(15) 
DFC LARt CHARACTtRt I ) 

CM. ci:. 


Cl 5 * *A\ 
Cl I « ‘A’. 

ci: « B*, 


a) 

A* 

• Cll 

hi 

CI5 

• A’ 

c) 

CI5 

- Cll 

d) 

CI5 

1 » ci: 

e) 

A* 

< ci: 

n 

‘A* 

< AB’ 


Cll 

< ‘AB’ 

h) 

CI5 

< Cll CAT ci: 


8.5 OTHER HAL/S I/O CONSTRUCTS 

The READ and WRITE statements already described allow data to be transferred 
between a HAL/S program and a sequential character oriented file. The data is always 
transferred in a standard format according to its type, though I/O control functions allow 
arbitrary positioning of the data. Since character o{vrat;ons allow output reformatting, the 
addition of an unformatted read IREADALL) gives the programmer complete control 
over sequential character files. 

HAE/S also supports random-access files, which do not necessarily contain charac- 
ter data, via the FILE statement, and provides some features which aid in tm>:Atrtin$ data 
to and from special purpose seniors and effectors. 
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9.5.1 ThcRkADALi iuncment 

Oiie example of the READALL itatemeni. 

DECLARE C CHARACTER(80); 

READALU5) C; 

was used in th& previous section. Aside from the READALI keyword, the formal of this 
statement is exactly that of the READ statement, although a restriction » made that all var- 
iables be of character type. 

The READALL statement can input up to one line of characters from a HAL/S channel; 
the characters read are placed directly in the character variable or variables without any 
special interpretation of the delimiters blank, comma, and semicolon. Characters are trans- 
ferred until cither all of the variables have been filled to their declared maximum lengths, or 
the entire line has been read, whichever comes first. Unless the READALL statement begins 
with I/O control functions (e.g. SKIP, LINE) the device mechanism is advanced to the be- 
ginning of a new line before the fiist character is transferred. 

When a list of variables or a .haracter array is specified, each variable or element is lilled 
in turn. There is no automatic movement of device mechanism between variables. This 
allows a line of data to be broken into fields; a card could be read as eight KVcharacter 
fields by: 

DECLARE CARD ARRAY(8) C HARACTER(IO); 

READALI45) CARD; 

I/O control functions may also be used with READALL Using the declaration above, 
just the first and last fields could be read by: 

P.EADALUS) CAROS(I ). COLUMN<7t), CARD$<8:); 

aEADALL uses the same set of channels as READ and WRITE. Input and output 
should not be mixed on the same channel, but READ and REAClALL may both be uaed 
on the same input fUe or even the tame card as in the fottowing example: 
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n 

M 

H 

M 

« 

n 

M 

r 

c 

c 

n 

n 

n 

n 

fi 

n 

fi 

H 

n 

M 

« 

H 

fi 

fi 

E 

M 

c 

fi 

M 

C 

C 

C 

n 


OyTER: 

FROSRAft; 

DECLARE SCALAR, 

PHI. alpha; 

OtClAPC IMITIAL^rOSN VECTOR DOUBLE? 
DECLARE HODE INTECfR. 

PRINT boolean; 


IMITIALIEE: 

PRCCCDURE; 

DECLARE V NAHE CHARACTCR(B); 

REPLACE IWriLC BY “S'*; 

00 WHILE true; 

REAOALllIN*UBI V-MAflE? 

VNiHE » TRIMiVNAME ;; 

IF VNAflE ' THEN REAO(ZNFILE) SKIPION C0LUKN(9f* PHI; 

IF V7UNE « V.IPHA* THEN REAOllNFILE) SKIPfOtt COLUMNfRI. ALPHA? 

IF VfUHE » •! FOSN' THEN REApflNFIlE) SKIP(0>, C0LUf1HrR»t INITIAI.POSN? 
IF VfUNE 5 'WE’ THEN PEADUMFILO 3KIP(0), COLUMN! 91, f«OEI 
IF VNAME « ‘PWINT* THEN K.*OC INFILE f SLIP !0f. COLUMN! 9I» PRINT? 

IF VVAME s •EK‘0' then 1X^1; 

end; 

IF PRINT THEN 

WRITE!6) PHI, ALPHA. INITIAL. PoW, ftonf? 

CLOSE initialize: 


XL0SL0U>4R.L 


The INITIALIZE procedure above could be used to read initial values for a simulation 
run. The input lines would consist of a variable name in the first ei^i columns followed by 
an initial value in the standard external format /or that data typ^\e.$. 


PHI 

.00137 

PRINT 

M' 

LPOSN 

1, I. 1 

END 



This type of initialization module takes little memory and is fairly efficient if there are 
not too many variables. Its main advantage is that it is very easy to code, particularly if a 
parameterized REPLACE macro is used to abbreviate the repeated code: 




t V/iff ti Al 'S t O Ci>t}nnu t% S 21 


RI PLAU nsnil). VAR) BV *• 

II VNAMI = ID THI N Rl AlX5^ 
SK(P(0). (XUl/MN(Q). VAR*\ 


nsIVALPHA*. ALPHA), 

TPSrri POSN\ INITIAL K)SN); 

oU'. 


r^rn'ises 

S.5.1A What HAI./S Uata ly|H*s may be rcjil usang the RTADALt slatomoni? 

8.5 lU How arc character strings suitable for input vu the RL ADAIL statement different 
from those suitable for input via the Rl AD statement? 


8.5 2 Hie HLF Sialcment 

The riLP statement is usi'J to read and write random access files. Ihese hies (which an' 
numbercil separately from ihannvh) are organized into recortis which may be accessed in 
iiuv scqvience. (.iencrally speaking, an> record may be read or wntten in t!\e same amount 
of time as any other (hence the term ' ‘random access’ ). 

The riU' statement has two fonns, 

l*IL-P(nuinber, address)" expression, 
and 

variable = FIU-(number. a«ldress). 

The construct riLF(iuimher, address) is called a Uk t \pri'\ston. When the llle expression is 
used on the left of the equals sign (the output file statement), the value of “expression” is 
written to the reconI specified by "address” on the lile s|H‘citled b> “number” When the 
tile expression is used on the right hand side (the input file siaiement). the record denoted 
by the tile expression is read into “variable”. 

The P'lLF statement is highly implementationslependent. the appropriate User’s Manual 
should be consulted before it is used. 

The “number” and “address” operands of the llle expression may be any integer or 
scalar arithmetic expression. “Number” must be computable at compile-time. If the ex- 
pres.sion is scalar, it will be rounded to the nearest integer. The legitimate ranges of Ihese 
integers are implementation dependent. 

There are no restrictions on “expression” in the output file statement. All of the fol- 
lowing statements are legal: 



} 


/ t > Ur Sffinj(x 


OKLARl- MATRIXUO.IO). ML M2; 
l)K LARJ A ARRAY(^*i) INTI t;i R; 

DK'URI (' CHARACTFKCO): 
mriARI I INTFT.fr INITIAUI^); 

Rl PLACT HIST BY -5 *; 

FILIUUST. i:> * Ml. 

FILK5. l+n » Ml M2*n: 

FILKHIST.8) * MI$C To 
ITLFUUST,^) * A41. 

FILF(HISTJO) • C II I: 

There are. however, some restriclions on "variable** in the input fiK- statement. These 
are the siune resfrieiions that apply to assign parameters of priKcihires, "Variable** mu.st 
he one of the following: 

I An unsuhseripteJ variable. 

2. An entire array eK .enl. 

3. A omtwuiUK partition of a ,vmg/e vector or matrix. 

Vhe following input file statements are all legal: 

Ml » FIIF(HIST:): 

(' - FILFt.L.n; 
as; * FILF(4.4), 

Ml$tl.*\ « FILF(5.oL 

It IS no: pos.sibie to read into a noiwontigiious partition of a MATRIX (Ml $(*,!)> or an 
array partition (AS(5 TO I0» or a partition of a character string (('S(3 VO #)), 

Both venuoiis of the tile statement cause the trai.sfer of unfonnatteil binary data. Thus, 
if the file statements aa' to be used reliably, n rtToni shouhi always he rtaiUnfo a lorwh/e 
of (hv sanw tvpt and organization u.v thy expression that huv \\ritten. Since the compiler 
cannot know how a tile was originally written, it is up to the pa>grammcr to ensure 
compatability. 

/ ^ 8,5,3 Avionics I/O 

* ^ HAL/S diMT 5 not include any specific avionics I/O statements, principally due to the fact 

that there is cuinrntly no standardi/ahon of airborne I/O systems. Some Right computers 
have one or more 'ndei>endent I/O r v>\Yssors or channels with their own iinutue instniction 
sets. Other computi.*x either have x'PIJ instructions for I/O or have a section of memory 
that is "hani wired" to extern,;^ .‘e’.ices (e.g. storing into Uvation 543^ liKtall might lower 
the landing gear). 

Operating systems also vary widely in this reganl. In some systems l.O is rei]uested by 
application prt>grams. while in others it is all done **automatically*' on a inrrioilic basis. 

^ Finally, every system will have a difIVrent complement of sensors, displays, effectors, etc., 

each of which may have its own iinutue formatting and piotwol ret|uirements. 






k 
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Although there is presently no way to implement generalized avionics I/O as a HAL/S 
statement, the language does provide a number of features that allow individual systems to 
be tailored: 

1. Structure (Chapter 9) and compool (Chapter 11) templates allow a section of 
memory to be mapped into a collection of variables of assorted types. 

2. Procedures and functions can be coded in assembly language and interfaced to a 
HAL/S-program (see Chapter II). 

3. Bit strings (Chapter 13) allow low-level formatting via subscripting and logical 
operators (AND, NOT. etc.). 

4. I/O errors may be handled via the ON ERROR statement described in Chapter 10. 

5. Event variables (Chapter 12) allows waiting for I/O completion, and may trigger 
transactions when signalled. 

6. Each implementation defines a set of %macros which allow pre-defined machine 
instruction sequences to be omitted. 

The following code illustrates some of the ways that I/O might be performed in alter- 
nate systems: 
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.*1 
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?1 

n 

M 

rt 

n 

rt 
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M 

E 

M 

5 

H 

H 

n 

n 


ASSCRTEDIO: 

RsFUCE 6£A^DC:.'M BY “INTEGEPC OCT *5^32 
d*:cl; 5£ oo.rtAv_REAO ev.nt; 

CtCU.= E f'E't ARRAf( 32767) BIT(16) INITIAUNAMEI KULU ) J 

STf-JCTc'E 

1 0£'.;:e integip. 

1 STATUS 3IT(16), 

I h‘;r* a9ray(10) integer, 

1 I iTEGIPJ 

0SCU?E F12S=N3:’S lOPAPtt-STRUCTURE INITIAUX6. HEX'D', N*JLL, 27); 

O'C'.Aee :o FPCCECIPE r.’C'JHAKl); 

PtoiACE ers^s BY "1"; 

to CASE OPsrs; 

aSvc(P); /*pekcent macro*/ 

♦ 

CAU lOtFWSENSORS); /^ASSEMBLY LANGUAGE*/ 

MEM s on; 

GEARDCWN: 


SIGNAL CO_NAV_R£AO; 

end; 

CLOSE ASSr TEDIO; 


/•EVENT VARIABLE*/ 
/*NO-OP*/ 


This program only indicates a few alternatives; there are many other possibilities. 


I 



I 


•V, 


. H ^ ^ 




M'24 tfO and Chamctfr Strtngs 


End Of Chapter Problems 

8A Write a HAL/S program that will read, from channel 5, 2 arrays of character strings 
(S elements per array, maximum 5 characters per string), remove leading and trailing 
blanks from each string, reverse each string, and write the results on channel 6 in the 
form: 

Column 5 Column 1 5 


CHAK^ARRIj. 

CHAR_ARRl2: 

CHAR_AKKl5, 


CHAR_ARR2|. 

CHAR_ARR22 

CHAR.ARR25; 






8B Write a HAL/S program to perform the following task : 

Input on channel 5 contains the names of 50 people, each consisting of a first name, 
one blank, and a last name. Names are separated by commas, the maximum length 
of any name is 25 characters, and there are no blanks in the input except those fob 
lowing the last comma in a line (no name is broken across two lines). The final 
name is not followed by a comma. 

The program should read in all 50 names into an array, and write on channel 6 all 
names whose last name begins with *S*. 

An example of possible program input is: 

SAMUEL COLERIDGE, CHARLES BAVOELAIRE,EMMY NOETHER, 

WILLIAM SHAKESPEARE, TYCHO BRAHE, DAVID HILBERl, etc. 

Use the INDEX built-in function described in Appendix A. 

8C Write a HAL/S program that will read from channel 5 a 1- to 3- digit integer, and 
write on channel 6 the English equivalent, e.g., 

173 - ONE HUNDRED SEVENTY-THREE 
0 -♦ ZERO 

15 FIFTEEN etc. 


A 


(f ‘ 
>• 
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9.0 STRUCTURES 

MAL/S structimrs provide a means of colteetinit a group of variables under u single name 
This grouping capability has a number of uses, one of which is illustrated below. Suppose a 
utility function which rei|uircs many parameters is defined at the outer level of a program 
and invoked from lower level c(xle as shown below; 
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OUTEW; 

PROGRAM I 

OECIARE SCALAR* 

Git G2; 

UTU: 

rUMCTlONlA. B. Ct 0* El VECTOR! 
PECLARE A vector; 

DECLARE SCALAR, 

B. o; 

DECLARE C IHTEGCR* 

C BOOLEAN: 


RETURN a: 

CLOSE utxl; 

nested: 

proceowe; 

A PROCEDURE HHICM INNOkFS UTIL 

DECLARE RESULT VECTOR; 

DECLARE V VECTOR XNITXAKO. 1, 0); 
DECLARE SCALAR, 

SI. 82, 

DECLARE C INTEGER INITIALIBSI, 

E BOOLEAN INlTlALIOFr ) ; 


SI * G) ^ M 

$S « SlNlGl • GZI! 

RESULT < UTUIV. SI, C. SE, EK 


CLOSE NESTED I 


It is advantageous to keep the actual arguments passed to UTIL (i.e, V, SI. S2. etc.) 
declared at the lowest possible level because of the protection afforded by scop** rules, and 
to show that these variables ‘‘belong" with the NKSTKD code bhKk. On the other hand, 
some inefficiency results from passing all five parameten separately. The code in the next 
figure shows how structures can be used to redui'e the number of UTIL parameters to one. 









Stmctum 
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n 
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c 

c 
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OyTM: 

prograh; 

OCCURC SCAUR. 

Cl. G2; 

STRUCTURf Um^PARti: 

1 V VICTOR. 

1 SI SCALAR. 

1 C INTCCCR. 

1 s: SCALAR. 

1 t BCOlCAMi 

um: 

ruNCTXON(X) vector; 

OECURI X yTIL_PA»M-STRUCTURi; 


RETURN X,v; 

CLOSE UTU; 

nested: 

proc^dl»re; 

declare result vector; 

DECLARE LOCAL UTXv .PARN-STRUCTURE INITIAHO, 1. 0. 0. SS. 0* OFE»J 

NOTE THAT THE TEHPLAT*' IS NOT REPEATED 

LOCAL. SI « 61 / 3; 
local.se t siNici ♦ csi; 


- ♦ 

RESULT > umaocAu; 


CLOSE NESTED; 


CLOSE outer; 


Several new language constructs art used in this example. First is the statement begin- 
ning with ’‘STRUCTURE UTIL ^PARM:**, This statement creates a stmcmre ftmpkift 
named UTIL _PARM which defines the layout of the UTIL PARM-STRUCTUREs declared 
I ' \r. In addition to structure declaration and initialiiation. the example shows references 
the components of a structure, struvtwr tfrminais, such as “LOCALS!** and an entire 
ft jcture. LOCAL. 

Ihe next section describes all of the constructs used in the example, although some of 
the more complex forms are deferred to the end of the chapter 
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9.1 DECLARING AND REFERENCING STRUCTURES 
In the statement: 

DECLARE LOCAL UTIL PARM-STRUCTURh INmAL(0,l,0.0,83.0,OFF); 

the phrase **UT1L PARM-STRUCTURE** takes the position usually occupied by a data 
type. This is actually consistent syntax because X-STRUCTURE, where X is a template 
name, is a data type. Hence, a template name with the word STRUCTURE attached by a 
hyphen can be used m most of the constructs from previous chapters which require a data 
type or “type specification". Examples include factored declare statements such as: 

DECLARE UT1L_PARM-STRUCTURE, 

LOCAL, 

X. 

Y INITIAL(1,2,3,4,5,6.TRUE), 

ZERO f:ONSTANT(0,0,0,0.0,0.OFF); 

and function type specification, as in: 

SHAPE: FUNCTION(A,B,C,D) UTIL PARM-SFRUCTURU; 

It is important to note that STRUCTURE by itself is not a data type: The type of a 
structure is entirely defined by the layout of its template. From this rule, and the descrip- 
tion of parameter passage in Chapter Seven it follows that when a structure is passed to a 
procedure or function, the template of the actual argument passed must be identical to the 
template of the formal parameter. 

The conditions under which two templates are identical for purposes of data type 
matching (ir. parameter passage, as.signments, etc.) wilt be discussed in Section 9,2. However, 
the easiest way of assuring that two structures are of the same data type is to use the same 
template in their declarations. In the example, the STRUCTURE statement which defines 
the UTIL^PARM template is part of the program level declare group. It can be used in the 
declaratior s of X and LOCAL in nested routines because the scoping rules for structure tern- 
plates are the same as for declared variables. Thus, a template defined at the program level is 
global and may be used in declarations anywhere in the program. 

In addition to parameter passage, entire structures may be used in assignment statements 
and in the various I/O statements. For example, a set of ten test cases could be run through 
the UTIL function by executing the following code: 
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FI 
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OUTfff ! 

DECLARE SCALAR. 

Cl. cc: 

STRUCTVRE Um^PAPM: 

1 V VECTOR,** 

1 SI CC4LAR. 

I C IfFTCCER, 

1 i: scalar. 

1 E pcolean; 

DECLARE ARC UTIL PAPFI- STRUCTURE ; 

util: 

fuk:ticn<xj VECTOR; 

declare X UTIL_PAPF1-STRUCTURE ; 


return x.v; 

CLOSE util: 

DO FOR TEFIPORARy I z \ TO 10; 

READ($1 arc; 

♦ 4 

ViRITE«6» •UTXLOP*. ARC, ■*', UTlLIARGi; 
EFIO; 

CLOSE CUTER; 


The statement “RFAD(5) AR(i;’’ is t'unctioiially equivalent to‘ 

RFAD(5) ARC. V. ARG.Sl. ARG.C. ARG.S:, ARG.F; 

In other words, the components ot the structure are read in the ’‘natural sequence”, which 
is the order in which they appear in the structure template. The components are output in 
this same sequence when ARG appears in a WRITF statement. 


4 ' 








A 
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Simiiarty. given: 

DECLARE UTIL„PARM-STRUCTURE, A» B; 
the statement: 

A * B: 

is equivalent to the sequence: 

A.V » B.V; 

A.Sl » B.Sl; 

A C « B.C; 

A.S2 » B.S2; 

A.E * B E; 

Structure components, such as LCXTALV and A.Sl, follow exactly the same rules as 
simple variables of the corresponding data type. No restrictions whatsoever are imposed on a 
structure component that would not also apply to a simple variable of that type. Thus, the 
vector component, V, of a UTIL_PARM-STRUCTURE, A, tan 6c subscripted, 

A.VSl = A,V$2; 

used in a comparison, 

DO UNTIL A.V$(2 AT I) « 0;, 

passed to a built-in function, 

A.Sl =« ABVAL(AfV); 

read, written, or filed, or used in any other construct in which a vector is allowed. Further- 
more, there is no additional runtime overhead (either time or space) involved in referencing 
a component of a structure rather than a simple variable. 

Structure initialization is essentially the same as array initialization: the initial list con- 
sists of a value or set of values for each component of the structure, separated by commas. 
The CONSTANT attribute is also acceptable. There is no way to write a structure litenU, but 
the CONSTANT attribute may be used to obtain the same effect. For example, a convenient 
way of setting all of the components of a structure to zero is: 

DECURE UTIL^PARMS-STRUCniRE. 

A. 

B. 

ZERO CONSTANT(0.0,0.0.0.0.OFF); 

A » ZERO; 
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In ;iddition to assignment statements, parameter passage, and I/O statements, v'ompan* 
son of entire struct^ires is permitted. As was the case with arrays, the only comparisons that 
can be made between structure operands are equal (») und not equal (H>). 

In this section we have discussed all of the ways that entire structures can be used in 
executable statements and made the assertion that components of a structure may be used 
in any way that simple variables of the same types can be used. We have discussed declara- 
tion and mitiah/ation of structures u^ing the template names as a data type. All of the ex- 
amples have used the same template (UFIL^PARM), but the rules for creating templates 
have been omitted and the naming of structure components has only been implied by exam- 
ple. In Section ‘>.2 we will clear up these points and show additional examples of the use of 
structures. This chapter concludes with the presentation of two additional attributes; *Topi- 
ness”. which is analogous to arra^ ness of other data types, and unqualitled structures, which 
aa* easier to reference but more limited in capability. 

9.2 THE STRUCTURE TEMPLATE 

A structure template describes the layout of a structure in terms of the order and data 
types of Its components. A structure template is created via the STRUCTURE statement. 
This statement begins with the word STRUCTURE followed by the name of the template 
being defined and a color'. The remainder of the statement is a list of component descrip- 
tions separated by commas. Each compv>nent is described by a level number, a name, and a 
data type. The statement below creates a template named SUPER VECTOR which has 
three components 

STRUCTURE SUPER VECTOR: 

I V VECTOR, 

I STATUS BOOLEAN. 

I TIMETAC. SCALAR. 

The phrase V VECTOR” defines a component named V of type VECTOR at level one. 
These level numbers require some explanation, but first we wilt stat^ the rules about names 
and data types. 

I ' The nanie of a structure component may be any valid HAL/S identifier. 

2) The names of structure components need not be unique, provided they can be un- 
ambiguously referenced (i.e. structures A and B may both have a component named 
\ since they can be distinguished by referencing A.X and B X>. 

3) The components of a structure may be of any data type. They may be of single or 
double precision and they may be arrayed. 

Smcv SUPER .VECTOR-STRUCTURE is a data type by the definition in this chapter, 
rule three above makes the following template legal: 

STRUCTURE STATEVEC: 

1 POSITION SUPER VECTOR-STRUCTURE. 

I VELOCITY SUPER.VECTOR-STRUCTUnE, 

I ACCEL SUPER VECTOR-STRUCTURE; 
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Given the follov/ing structure declaration; 

DECLARE STATE STATEVEC-STRUCTUHE; 

how are the low-level components referenced? The answer follows from the information al- 
ready presented: Since the V component of POSITION is named ‘‘POSITION. the POSI- 
TION.V component of STATE may be referenced as “STATE.POSITION.V“. This process 
may be carried to any level. Given. 

STRUCTURE S2: 

I STATE STATEVEC -STRUCTURE, 

I ATTITUDE^INFO ARRAY(3) VECTOR DOUBLE; 

DECLARE STATE2 S: STRUCTURE. 

the components are named: 

STATE2.STATE.POSITION.V. 

STATE2.STATE.POSITION.STATUS. 


STATE2.STATE.ACCELTIMETAG. 

STATE2.AmTUDE.lNFO$( I :). 

and so forth. The components listed above are called structure terminals, A structure termi- 
nal is any component of a structure which itself is not a structure. Structure components 
which are also structures are termed s/iuc/ure nodes: this terminology stems from viewing a 
structure as an inverted tree, as shown below: 
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In this diagram, rounded boxes arc used to represent nodes, or torks in the tree. The 
square boxes represent structure terminals which arc the leaves of the tree. 

In Section 1 it was stated that a component of a structure may be used in any context 
in which a simple variable of the same typ! can be used. This statement applies to both 
structure terminals and to entire nodes of a structure. Since the nodes ST ATE 2. ST ATE. PO- 
SmON and^TATF.2.STATF..ACCFL arc of type SUPER VECTOR-STRUCTURE, they 
may be read, written, filed, assigned to each other, compared, or passed as r/arameters to a 
procedure or function which expects a SUPER _ VECTOR-STRUCTURE as an argument. 
Thus, these components of STATE2.STATH might be manipulated as shown below: 
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An alternate way of coding the S2 template used in declaring STATE2 appears in fhe 
following flfiife. HUS example ^Hoidd make the itte of level numbers clear: level numbers 
provide the capability of creating nodes in a template without referencing other lemplates. 
No change whatsoever would be r«v|uired to the previous program this S2 template was 
substituted for the earlier formulation. 



B> referring back to the tree diagram of the STA1E2 structure, it can be seen th»l the 
level numbers represent the distances between the top of the structure and each component. 
Another illustration of this correspondence appears below 

STRUCTURE X; 

1 A. 

2 B INTEGER. 

2 C. 

3 D INTEGER. 

3 E INTEGER. 

I F INfECiER; 

In these examples, the structure templates have been indented to show the contents of 
each node. This indenting is supplied by the compiler based on the level numbers. Since the 
HAL/S language is writlen in fret format, the number of blanks coded on source cards r 
irrelevant. Hence, the previous example could also be written as: 

STRUrrUHE X:l A. 2 B INTEGER. 2 

C. 3 D INTEGER. 3 E INTEGER. I F IhTTEGER; 



and the same output Kiting would result. 




Strurrurt^^ 


CcJing structure templates m the above form is not reconimemled, however Properly in- 
dented source code generally makes desk checking and subseruent modification much 
ea<ier 


Exercises 

2A Write structure templates for the following trees. 



where. 

C'l . I I are ^-sectors; 

D2, 1'l are 3x3 matrices. 

DZ, \^Z are arrays of length 5 of 3-vectors, 
All other terminals are scalar 


a) For the following sequence of structure templates and the single declaration below, 
draw the tree for the declared structure TEST DATA 

STRUCTURE X. 

1 A INTEGER, 

1 B, 

: VI VECTOR, 

2 V2 VECTOR; 

STRUCTURE Y: 

1 A. 

2 B INTEGER, 

2 VI VECTOR, 

1 C SCALAR; 

STRUCTURE DATA: 

I L, 

2 M X-STRUCTURE, 

2 N Y-STRUCTUKE, 

1 1 . 

2 J X-SrRUCTURE, 

2 K Y-STRUCTURE; 

DECLARE TEST„DATA DATA-STRUCTURE; 
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b) Write, in the natural sequence, the expressions used to reference each terminal of 
TEST .DATA. 

c) Write an alternate structure template for DATA that allows the terminals to be ref- 
erenced exactly as in part (b), but does not use structures X and Y. 

d) Call the structure template of part (c) DATA_PRIME, and make the following 
declarations: 

DECLARE ST'lUCl DATA-STRUCTURE, 

STRUC2 DATA.PRIME-STRUCTURE; 

Which of these assignments are legal: 

1) STRUCl.LM.A * STRUC2.L.M.A; 

2) STRUCl * STRUC2; 

3) STRUCl. I.K * STRUC2.I.K; 

4) STRUCl.LM = STRUC2.U; 

5) STRUC2.L « STRUC2.1: 

9.2C Rewrite the following segment of HAL/S code, using structures to eliminate the DO 
FOR loop. How must the procedure PROCESS be changed to allow this? Be sure the 
data can be read in the same order as before. 

DECLARE VEC_ARR ARRAY(5) VECTOR; 

DECLARE TIM^ARR ARRAY(5) SCALAR; 

DO FOR I * 1 TO 5; 

READ(5) VEC_ARR$(I:),TIM_ARR$I; 

END; 

CALL PROCESS(VEC^ARR,TIM^ARR); 

9.2.1 Template Matching 

Throughout this chapter, the data type of a structure has been named by referring to the 
template used in its declaration. The statement has been made that two structures are of the 
same data type if their templates are identical. For the purpose of matching data types, two 
structure templates are identical if and only if the order and data types of all of their com- 
portents are exactly the same. For structure terminals, all of the attributes including preci- 
sion and arrayness must match. The term “components** used above also includes structure 
nodes; two nodes are of the same type if and only if their components ^re of the same data 
types and in the same order. 
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This ruk can be slated in two ditTerent ways: 

1 ) Two structure templates are identical if and only if the order, data types, and 
htemn h teal arrangement of their tenninais are the same. 

2) Two structure templates are identical if the only differences between them are the 
names of terminals and nodes. 

Most of the information about structures has already been presented. We have seen how 
to declare and reference structures and their components, and how to code stnicture tem- 
plates. The use* of structures to group data for parameter passage, assignment as a Hock, and 
the simplification of I/O statements has been illustrated. Subsequent sections will add a few 
more capabilities to structure declaration and referencing by building on the basic concepts 
of templates, nodes, tenninais, and user-<1efined data types presented here. 

9.3 MULTI-COPIED STRUCTURES 

Multi-copied structures provide a capability similar to arrays of simpler data-types. The 
uses of structure copincss are much the same a.s the uses of arrayness described in Chapter 
Six, If several structures are to be processed identically, it is convenient to reference them 
by number within a loop. An example of this usage is described below. 

riic SUPER VIT'TOR template from Section 9. | (rc|H*atcd below) might be used to 
contain sensed velocity data from an inertial measurement unit. Since these devices are 
usually redundant, it is useful to define a mulli-copied SUPER VECTOR to contain the 
data. The following figure shows how such an entity can be declared and referenced. 


M EXAWFLE.N: 

H PFOaPAflT 

n STPUCUfPE SUPEP VECTOPt 

f1 IV VtCTOP* 

H 1 STATUS BOOLEAN, 

H I TIfttTAi; SCALAR; 

M OECUP. VEL SUPER VECTOR- STRUCTURE! 3 > ; 

H DECLARE EE5T INTEGER; 

H DO roR temporary I 5 I to 3; 

C ♦ 

M CALL RCAO.inum ASSIGN! VC L i; 

S l; 

M CNO; 

t ♦ 

N CALL SELCCT_PESTi(VEL)l ASSIGN! PEST I ; 

C ♦ 

n CALL CUIOANCeiVEL i: 

s best; 


II 

best; 


C 

H 

S 


CALL OTHCR^SHCVCL 
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« 

SCLCCT best: 

i 



n 

Pf’OCCOL'RErVI ASSXGN(SUeCTEO»; 

% 



H 

OEClAPr V SUPCff.VECtO«-5T»UCTURe(3». 

1 



H 

ssucTco integer; 

1 

'4 


fi 

OECLAPe N INTECER; 



M 

DECLARE rOST^RECENT SCAUR IMITIALtOI AUTOMATIC; 

1 



H 

DO FCR N s I TO 3; 

\ 

\ 



E 

« 

IF V. STATUS * OFF THEN 



S 

n; 

X 



n 

repeat; 

\ 



n 

IF V.TirETAG > HOST.RECEMT THEN 

5 


1 

s 

1 n; 

i 



M 

DO; 




M 

SELECTED = Mi 

‘ 



H 

MDST^RECENT = V.TIHETAC ; 

1 



S 

n: 

i 

f 



H 

end; 

i 



« 

end; 




n 

IF nOST^PECEMT = 0 THEN 

> 

4 


M 

SELECTED = i; /»ALL EQUALLY BAD*/ 

f 



n 

CLOSE select^best; 

1 



n 

guidance: 



> 

? 

« 

PRCCECURCfBESr VEU; 



,T 

H 

DECLARE BE5T.VEL SUPCR^VECTOR-STRUCTURE ; 



r 

c 




V’ 





i; 

h 

CLOSE guidance: 



N 

OTHER.SM: 



"■ 

M 

PRCCEOL'REtVi; 




« 

DECLARE V SUPEP^VECTOR-STRUCTURE; 



> 

c 

... 




n 

CLOSE other^sm; 



> 

n 

READ IMU: 




M 

proceoureiunit.»wm; assign: strucw 




n 

DECLARE UNIT KIJN INTEGER t 




N 

STRUC SUPEP.VcCTOR-STRUCTURE; 



k 

c 

... 



% 

rt 

CLOSE REAO.IMU; 



* 

« 

CLOSE eXAn?LE_N* 
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Several points are illustrated by this example. First, a multi-copied structure is created 
simply by appending a copiness specifier to the structure declaration. The copiness specifier 
is a parenthesized integer which immediately follows the word STRUCTURE. As with 
VECTOR or ARRAY dimensions, the number of copies may be specified by any arithmetic 
expression which can be computed at compile time*. 

The next new construct in the example appears in the statement: 

C ALL READ IMU(I) ASSIGN(VEL5(I;) ), 

This statement is intended to obtain the Ith copy of [VEL) from an external device. 
VEL$(I;) is a SUPER_ VECTOR-STRUCTURE with no copiness; the fact that it is con- 
tained in a multi-copied structure does not by itself impose any restrictions on its use. The 
semicolon in the subscript separates structure subscripts from the other types of subscripts 
for the same reason that the colon is used to set off array from component subscripts. Struc- 
ture subscripts may of course be combined with the other types: for instance, the second 
component of V within the third copy of VEL can be referenced as VEL.V$(3;2). Some of 
the many combinations are illustrated below. Given, 

STRUCTURE X: 

1 M ARRAY(IO) MATRIX, 

I I ARRAY(.3,2) INTEGER; 

DECLARE BIG X-STRUCTURE(IOO); 

the very first scalar component is: 

B1G.MS(1:I:I,1) 

and the last scalar is; 

BIG.M$(100;I0:3,3). 

The first four integers are: 

BIG.I$(I;I TO 2,*), 

which is a two-by-two integer array. 

BIG.M$(l;*;i,*) 

is an array of ten 3-vectors composed of the first rows of all the matrices in the first copy of 
BIG. 


*There ii also an equivalent to ARRAY(*> which will be described later. 
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Partitions are also allowed in structure subscripts, the statement 
i BIC;$ (I ro 50,) = BIGS(51 TO #:). 

would set the first fifty copies of BKJ to the values contained m the last fifty. 

The data type of BIGS( 1 TO 50,) Is “multi-copied X-structure*‘. When the structure sub- 
script is applied to a terminal (c.g. BI(Tl), the result is no longer a structure. In this case, the 
copiness is converted to arrayness. BlG.MSd TO 50,) beha' es like a 5U x lOarruv of matri- 
ces. Likewise. BIG.ISt 1 TO 50;l.l) behaves like an ARRAY(50) INTLGHR even though all 
of the actual arrayness was subscripted away. With respect to terminals (but not nodes), 
arrayness and copiness are interchangeable. 

Returning to the original example in which VEL was declared as a three-copied 
SUPER _VECTOR structure, we can see how the conversion to arrayness is used. T.ie fol- 
lowing arc arrayed statements which function exactly as described in Section 6.2. 

(VEL STATUS! = ON; /*set all three status booleans to TRUE*/ 

* MOST REC ENT = MAX([VEL.TIMETAG) L 

AVG / COMPONENT = SUM(VFL.V$(*,3))/3; 

AVG Y COMPONENT = SUM(VE:L.V$(*;2))/3; 

VELV = VhCTORd.U), 

In many ways, multi-copied structures are like arrays of other data types. We have al 
ready seen that subscripting is essentially the same except for the use of a semicolon instead 
of a colon, and that terminals of multi-copied structures can participate in arrayed state- 
ments. One copy of a multi-copied structure may be used in any context where a simple 
variable of the same structure type can be used; this rule is also the same as stated previ- 
ously for arrays and their elements This section has also shown that the uses of copiness are 
roughly the same as the uses of .'irrayness: identical operations on similar data, saving a set 
of structures in a list, and maintaining tables. 

' Another way in which multi-copied structures resemble arrays is in initiali/.ation. A 

multi-copied structure can be initialized by listing the initial values for each copy separated 
by commas, as shown: 

STRUCTURE MONTH: 

j’ * I NAMKO» CHARACTIiR<5), 

I OAY5 INTHGKR. 

I COLD BOOLhAN; 

DfcCLARE YEAR MONTH-STRUCTURl-( 1 2) INITIALCJAN', 3\. TRUK. ‘PEB'. 

28. TRUK. MARCH’. 3\. TRUK. APRIL', .^0. FALSE.. *); 

^ Here, the asterisk (*) is used to indicate that only part of the structure is to be initialized. 

The initial values of copies five through twelve are indeterminate. The use of a multi-copied 
^ structure for this type of diverse table instead of a set of parallel arrays (shown below) is 

largely a matter of style. The referencing of entiies is about equally convenient, but the 
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initial list groups all of the information about each entry* in the case of a structure whereas 
the Information for arrays must be grouped by type as shown in the alternative below* 

DhCLARK NAMROF ARRAYt!2) CMARACTFR(5) INITIAL(*JAN\ FFB\ 
MARCH'. APRIL’, ♦>; 

DhCLARK DAYS ARRAY(I2) INTKGFR INITIAU^I, 2S, M. 30, *): 

DHCLARK COLD ARRAY(i:) BOOLKAN CONSTANT(TRUK, TRUK, TRUK, 
PAUSK, *): 


Finally, procedures may be written to accept a structua with a variable number of 
copies. The syntax is the same as for arrays, as shown below, which is a re-work of the 
example before. 
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FXA«PIE^H: 

rjJcr-PAH; 

STPCCTCPE SUPfP VECTCP: 

1 V VECIO?, 

1 STATUS C OGLE AN, 

1 TIMETAG SCAUPi 

DECLARE VCL SUf-*CP_V£CTOP-STRUCTUPC( 3) ; 
orciAPE ersT imEGERi 
00 FOR TEMPOPARY I s 1 TO 3; 

f 

CALL READ^imj(I) ASSIGN! VEL M 

i; 

Etn>; 

♦ 

CAU SCLECT^BEST! (vul ) ASSIGN! BEST); 
CAU GUXDAt)CE(VH ); 

best; 


♦ 

CAU OTHER SUtVEl ); 

6E3T; 

SELECT best: 

RROCEDUPEIV) ASSIGN»SFlECTCDi; 

DECLARE V SUPER VECTOR-STRUCTURF! • » ; 
DECLARE SELECUD INTEGER; 

4 

00 FOR TEflPCPART N « 1 TO SIZE((V)l; 

IF V. STATUS * OFF THEM 
n: 

repeat; 


end; 

CLOSE SIL€CT,BCST; 

guidance: 

PROCECUPCCBEST VIL»; 

DECLARE BEST.VCL SUPER.VfCTOR-STRUCnmE; 
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CLOSE CUIOAKCt; 
pprccri’^Ei V); 

OtCLA»^E V SUr'tP.VCCTOP-STPUCTU^C; 


CLC5F OTHFP 5W; 

RE4n_IMj: 

rKrcFri’^m-aTjori ) *ssr':N( str’jc i ; 

PICL4RE IN^tC-rR, 

STPCC SUPER^VECTOP-STflUCTLWE; 


CLOSE PF40 ir'; 
CLOSE C\ftf''LE,N; 


Note, however, tliat there arc a lew ways m which imilthcopied Mructures are vhlferenl 
from arrays. 

1 ) Only one dimension of structure copiness is allowed. 

2) Arrays may he used as structure components, but mulli-copied structures may not 
.0 There arc no operators or built-in functions for processing structures, 


Exercises 

^.3 A Rewrite the solution ot problem using mulli copied structures 

t'onsider the lollowing structure template and declaration 

STRl’f'll’Rl Al 

I B ARRAY(5) INTKU R, 

1 C SCALAR. 

I 0 VI CTORtoL 

DECLARE A AI-STRUCTDREt IDOL 

Write a HAL/S expression to reference the following data items, and indicate their type and 
array ness/ copiness. 

a) The 25th copy of A. 

b) The .^nl component i>f B Irom all copies of A. 
c> C from the 1 0th through 20th copies of A. 

d> D frtvm 75th to 85th copies of A. 

e) The 1st element of D from the first copy of 



I he following information about a company's 100 employees is available: 


a) SS number 

b) salary 

c) job code 

d) name 


(integer) 

(scalar) 

( integer) 
(character) 


Write a HAL/S program to read in all the data from channel 5 and compute the average 
salary. Create a structure to hold all of the avaikble information. 


9.4 DENSE, RIGID, AND “UNQUALIFIED” 

DENSE and RIGID are minor attributes that can be applied to structures and their 
nodes to give the user more control over the layout of structure data in storage. The term 
“unqualified” refers to a type of structure in which it is not necessary to qualify each refer- 
ence to a terminal by the name of the containing structure. These features may not be fre- 
quently used, but they do provide additional capabilities required by some applications. 


9.4.1 The DENSE Attribute 

The DENSE attribute instructs the compiler to pack portions t)f a structure into as little 
storage as possible, generally at the expense of efficient references to the data. The DENSE 
attribute is specified on a structure template or a node of a template as shown in the figure 
below: 


n Pi 

n proorah; 

H STRUCTURE PUGS OENSC: 

H 1 SI eOOUAN. 

n I S 2 SOOUANt 

n I NODE XHTEGER, 

H 1 B1 BCOLCAH. 

n X C CHARACTER! S); 

M DECLARE STATUS PLAGS-STRUCTURE INITXAUOPP. OPP. 0. OPP. 
n CLOSE Pi 
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The effect of the Dl.NSh attribute b implementation dependent. This is because the 
mapping of HAL/S data types into bits, bytes, words, double words, etc., vanes according to 
the storage formats of individual target machines Most computers have operand alignment 
requirements, for instance requiring that floating point numbers be stored at an address 
which is a multiple ot two or four. The MAL/S programmer is normally isi^laled from these 
considerations. Since variables arc only referenced by their symbolic names, the compiler is 
free to re-arrange declared data to meet the requirements of the machine. 

Unless the DFNSb attribute is specified, all data is ALUtNFD (i.e. placed on appropriate 
storage boundaries). DbNSH data is packed whenever there is a reasonably efficient means 
of bypassing the computer's operand alignment requirements. Thus, the only general state- 
ment that can be made about I)l*NSb structures is that they tend to require less storage but 
more time to access than ALKiNFD structures, 

It turns out, though, that most compilers will pack booteans and bit strings in DENSF. 
structures. In the example above, Bl, B2um/ B3 would occupy the same amount of storage 
that would be allocated to a single ALIGNED boolean. Note that B3 is placed in the same 
byte, word or other addressable unit as Bl and B2 even though an integer is between them 
in the template. Whether or not DENSE is specified, the compiler is free to rearrange the 
order of structum components to minimize the number of alignment gaps or to optimize 
the addressing of certain components. In fact, all declared data is subject to the rearrange- 
ment unless the RIGID attribute is specified (see Section 9.4.2). 

Components of a DENSF structure are referenced in the usual way ; some additional re- 
st! ictions on their use apply, but where they are allowed, they bthave exactly like compo- 
nents of a corresponding ALIGNED structure. Thus, statements like 

STATUS.Bl = ON; 

STATUS.B2, ^ TATUS.B3 = FALSE; 

IF STATUS.Bl AND STATUS.B2 THEN STATUS.MODE = 9; 

work as described previously. The additional restrictions* imposed on terminals of dense 
structures are. 

« 

1) Bit or iH^olean terminals of a dense structure may not be passed as ASSIGN param- 
eters to procedures. 

2) Bit or boolean terminals of dense structures may not be used on the left hand side of 
a FILE statement. 

: ) Bit or boolean tenninals of dense structures may not be used in NAME expressions. 
Sec Chapter 13. 


*The«e restricuont avoid the need to pan both an addreu and starting bit number to Library or USER- 
supplied routines. 
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These a!<. (he only restrictions imposed on the DENSE attribute; note that they apply 
only o bit and boolean types and do not apply to entire structures with the JENSE attri- 
bute r en if these structures contain bit or boolean terminals. Thus, 

(STATUS) * FILE(»,I); 

is legal, but 

STATUS.Bl » F1LE(I,1), 
is not legal. 

9.4.2 The RIGID Attribute 

Consider the following structure: 

STRUCTURE INTEGER_LIST: 

1 SI INTEGER, 

I D1 INTEGER DOUBLE. 

I S2 INTEGER, 

I D2 INTEGER DOUBLE; 
declare iota INTEGER^LIST-STRUCTURE; 

On a computer which requires that double precision integers be stored on even ad- 
dresses. the compiler would probably rearrange the data as follows: 


word: 0 

1 
2 

3 

4 

5 


If the data was kept in the natural sequence, the following would be needed: 


word: 0 

1 

2 

3 

4 

5 

6 
7 


The shaded areas indicate alignment gaps which are effectively wasted storage. These dia- 
grams show how allowing the compiler to re-arrange data can result in a substantial savings 
of memory. 


I SI I 


////////// 


DI 

S2 


'///////// 


D2 


D1 

D2 

IT 

S2 
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Occasionally, however, it is necessary to prevent this rearrangement, generally to inter- 
face with external devices or NONHAL routines. The RlfilD attribute is supplied for this 
purpose. The second diagram shows the storage assignments that wouki be made if the 
word RIGID appeared immediately before the colon of the STRUCTURE statement. An 
appropriate use of the RIGID attribute appears below: 

STRUCTURE IMU.DATA RIGID: 

I DELTA V ARRAY(3) INTEGER DOUBLE, 

I ATTITUDE ARRAY(3> INTEGER. 

I TIME BIT(32). 

I STAT DENSE. 

2 FI BOOLEAN. 

2 F2 BOOLEAN. 

2 F3 BOOLEAN. 

2 UNUSED BIT03). 

I OP MODE INTEGER; 

DECLARE IMU_DATA IMU-DATA-STRUCTURE; 

CALL ASM TO ROUIINE ASSIC.NOMU „DATA>; 

In addition to the syntax for declaring a RIGID structure, this example shows the 
DENSE attribute applied to the STAT node. IMU_ DATA. STAT is both RIGID and 
DENSE. The R:g:D attribute on the structure is inherited by all of its nodes. If any addi- 
tional nodes were defined below STAT, they would also be RIGID und DENSE, unless the 
ALIGNED keyword was specified. The RIGID attribute is always inherited (cannot be 
turned ofO since there is no ’‘non rigid” keyword. 

Gie RIGID attribute allows any data layout to be mapped into HAL/S data types. It 
does not impose any restrictions on the use of a structure or its components. However, two 
structures cannot be of the same data type unlers neither or both are RIGID (i.e , the 
templates won't match). 

9.4.3 UnqiMlified Stnieturei 

In the example above, note that ‘*1MU_DATA** is the name of the template and the 
name of the declared structure. This fact makes IMU^DATA an unqualified structure. 

When a stniclure template is to be used in only one declaration, it is convenient to give 
the structure the same name as the template. This permits the name of the structure to be 
omitted when referencing its nodes and terminals. Again referring to the structure above, 
the statement. 

DO CASE IMU^DATA.OP^MODE; 
is legal, but the more convenient form. 

DO CASE OP_MODE; 
is also permitted. 
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Unqualified stnicturci differ from qualified structures (all preeknis examples) wtiy in 
the form of references to their components. It has already been staled that there is no exe- 
cutk>n>time penalty involved in uiinf a structure terminal instead of a simple variable; if an 
unqualified structure is used, > o distinction lias to be made in the source code either. Thus, 
there is no disadvantage to using a rigid unqualified structure to force > collection of vari* 
a hies to be allocated In a particular sequence, except for possible alignment gaps. 

Sometimes it is useful to convert a set of declared variables to the components of an un* 
qualifitd structure, since all of the variables (now structure terminals) can be transferred to 
or from a randonvaccess device in a single FILE statement. Variables are also sometimes col- 
lected in an unqualified structure for documentation purposes since this allows them to be 
discuised as a group under an *‘officiar* name which appears in the source code. 

Now that structures and their uses have been fully described, only two data types re- 
main. Bit strings, which are the general case of booleans, are discussed in Chapter 13, and 
event variables, which may be thought of as *'rral-tiine booleans*’, in Chapter 12. Ihe mate- 
rial covered thus far in the text should allow most applications to be coded in HAL/S; the 
handling of errors and exceptional conditions will be diK*ussed in the next chapter. Then we 
will proceed to put a collection of programs together and execute them as an integrated sys- 
tem in Chapter^ 1 1 and 1 2. Chapter 1 2 describes how the user may control execution rates 
and inter-process communication and synchroniaation. The book concludes by discussing 
several constructs that are p^wided for writing “system programs** such as I/O device driven 
and memory managemer t routines. 
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Exerdict 


V.4A 


STRUCTURE A RIGID 
I B. 

: C INTEGER. 

: D VECTOR, 

I E. 

: F. 

3 G MATRIX(4,5), 

3 H ARRAYCJ) INTEGER DOUBLE. 

: I INTEGER; 

STRUCTURE AF: 

I G MATRIX(4.5), 

I H ARRAY(2,3) INTEGER DOUBLE; 

STRUCTURE RAF RIGID. 

I G MATRtXl4.5). 

I H ARRAYC.3) INTEGER DOUBLE; 

DECLARE X A-STRUCTURE. 

Y AF .STRUCTURE, 

Z RAF STRUCTURE; 

DECLARE iNTARR ARRAY(2.3) INTEGER DOUBLE. 


Arc thi.* fotlowinf assif nmcnis ! ^gal? 

a) X.E.F » Y; 

b) Z - X.E.F; 

c) X.E F.H • Y.H>Z.H; 

(l> Y.G • 2.C; 

c) X.B.C • Y.HS(U); 


9.4B Contkler Ihc foUowtnf structure template and declaration: 

STRUCTURE A: 

I B SCAUR. 

I C INTEGER. 

I D VECTOR(6); 

DECURE A A-STRUCTURE(20) 



Struvturti 


What do the lol lowing HAL/S subscripted variables ret’erence. and what are their ty pes and 
array ness/cop I ness 

a) A5(J0,) 

b) ASi: AT 10.) 

c) CSd:) 

d) l)$(4 TO ^;) 

e) D$(*. 4 TO 6) 


End of Chapter Problems 

9A What are some of ♦he capabilities that HAL^S structures give the program that would 
otherwise be unavailable? 

9B Wri:e a HAL/S program that will rea ^ sn.iulated data from 3 redundant sensors on 
channel 5 and compute the middle value of the ^ redundant pieces of data. 

Read an acceleration, velocity, attitude (3-vectors), and a scalar time tag after each 
from each measurement unit. First read from unit I, then 2 and 3 in that order. 
Compute the middle value of the three measured values for each quantity (using the 
ABVAL built-in function to compare magnitudes of the vectors), and store these 
values with their associated time-tags in a structure with the following template: 

I BEST A^CH. 

2 ACCHL VECTOR, 

2 ACCEL KM SC ALAR, 

1 BEST_VFL, 

2 VEL VECTOR, 

2 VEL TIM SCALAR, 

I BEST ATTITUDE 
2 PITCH VECTOR, 

2 PITrif TIM SCALAR, 
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UVO IRROKRIVOVI RY 

tmpUMncntutioii ol‘ Ihc MAl ;S lanjiuaRc dclmcx a mM o! runtime crroi> lliesc 
cm>tN, 01 iiu'imic 

t ) im altii argument to InuK-in tUiu tions, such as SQK i ( IK 

2) I/O errors* sucli as remling t^ast the enu ot a tile . 

.0 hanUatv Uetecleil errors, such as attempting to \\w ute h\ zero; 

4> amt othei cotuliiioiis whicli ma\ arise >vhile evecutmg certain HAl S statements, 
e g, inverting a singular matri\ amt using uivalut character siihscnpts. 

By ilefiiuli. when one of these eritirs occui-s, a siatuhirj tnup is peiformeil. on grouiul* 
hased systems, an ei or message may be generated as well. In some cases, the staiulaixl fixup 
is to print diagnostic mfonnation and ternimato the program, but usually some miuKUous 
value IS substituted for the offending expiwsion and eseiution contimn bor mstunce, if 
SQRTtX> IS invoked with a negative X. the standimt fixup is to rt'lurn SOisMAHStXn I he 
standaixl fixups for all ein>rs defined m a compiler are listed in the corresponding Users 
Ituidc. 

The standar^l fixup may not he appropriate fot ali applications Uenco. UAI S pun ides 
a mechanism that allows usef'supphed HAI S statements to gain contiol when an etiot 
meurs. In this figure, an ON I'RROR statement is used to handle an end of file eiror. 
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CO TO rrnri 
DO w?iui truci 

srspisi iMxiT. rvprcrtoi 

CAU MlKPUTl ASSlCm OUTPUT »i 

\f PUTruT ■ ixnciiP tmcn 

R2CMT » RlCI'T * U 
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KROUO t , XI 

ruo: 

OOK‘«s 
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KHiTiui RiCHT • smrLfs ccR»tcT» wvoNs, • sAMries iN,o'?i?rcT' i 
XI 

pRocunxrcai assigniOji 

OECIARC SCALAR, 

I* 01 


CLDSt XI 
CLOSE nCT.^Xi 
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Only one new consinut is tiseJ in this example: 

ON FRRORS (10:5) (iO TO DONF; 

Fins IS an cuu nmhlv slalement which establishes “CJO IX) DONF/’ as a handler I'or the end 
of file error When the ON I RROR statement is executed, the default error handling (i.e. 
standard fixup) tor the eiul of tile error is replaced by the (’;0 TO statement supplied. The 
function of the ON FRROR statement is to selectively replace the staiulanl error handlers 
under program control. 

10 1 I HF ON FRROR STATFMFNT 

Like the IF' statement. ON FRROR is a compound statement (i.e. a statement which 
contains anoMier statement). It specifies an to be perfonned when an error occurs. 

Hus action may be an executable statement, but (lO TO is the nu>st commonly used in this 
context. In tact, the action portion of a*’ ON FRROR statement should be the most fre- 
quent use of C'lO TO HAI /S. The example above, however, can be re-written without a 
(10 To. as in this figure 
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TrST_x: 

PRC*: 5 am; 

RtriACC 10 pr "10“; 

DtCLAVt INT£G£R lUlTlALIOI, 
PTGMT» 


ON ERROR 

10:5 

do: 

WRITt(6l ’TEST RESULTS roUOW; 
<.!RITE(6) RIGHT. K90NG; 

return; 

EiO; 

00 WHILE true: 


EM); 
CLOSE ; 


In this example, a IX) . . F'NI) group serves as the action of the ON FRROR statement. 
Note that in making this change it was necessary to add a RFTURN statement after the 
WkITl. statements. Fhis is because after the aetUm of an ON h'KROH .statement has been 
exeeuted, eontroi faiis thronnh to the foitowinK statement. If the RFTURN weiv not coded, 
the IXt WniLF TRUH loop would He rcH'xecuted after the WRITK statements and the 
eiTor ptx>bably would recur, avsulting in an infinit? loop. Fhc next figun; illustrates *he flovv 
of control around an ON FRROR DO . . FND group. 
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Key: 

— ■!» normal control flow 
error exit 

on error compound statement 
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After jn error occurs jnd a user-specified action is taken, there is no way to resume 
execution at tlie point that the error was detected For efficiency reasons, the state of the 
program immediately after the error is not saved, and hence cannot be restored. 

The end of file example illustrates one difference betveen the MAL/SON FRROR sys- 
tem and the system of alternate returns or “END= . . . used in many language* The ON 
FRROR statement was coded outside of the DO WHILE loop; thus the overhead associated 
witli defining an end of file handler is paid only once, rather than at each READ statement. 

fhe subscript in the ON ERROR statement consists of two numbers separated by a 
colon The left number is an error group: the nglit number is an error code within that 
group. Denotiii; . rrors by both a group and a code allows entire groups of errors to be 
handled identi ally (see later) The group and code assignments of a particular error arc gen- 
erall> the same among various implementations of the language, though this is not guaran- 
teed by the HAL/S Language Specification. The User’s Manual which corresponds to the 
compiler in use should be consulted before using ON ERROR statements. 

The compiler used in producing the listings for this book follows the same convention as 
several HAL/S compilers: all I/O error are assigned to group 10, and codes 0-9 in this 
group represent end of file erron on channels 0-9. Thus, ON ERRORS (10^5) sets up a 
handler for end of Tile on channel five. Use of the macro: 

REPLACE 10 BY *10”; 
is used to improve readability. 

If a program reads data from several devices, an end of file handler can be created for 
each. e.g. 

ON ERRORS (10:4) GO TO NO_MORE_CARDS; 

ON ERRORS (10:5) GO TO END OF TAPE; 

etc. 

It may be more convenient to write one handler for any I/O error, this can be easily done 
by omitting the error code as in* 

ON ERRORS (10:) GO TO DONE; 


or 


ON ERRORS (10) GO TO DONE; 

These forms both specify ‘‘any error code with the given group”. Finally, the statement: 
ON ERROR GO TO DONF; 

sets up “GO TO DONE;” as the handler for all errors (including end of file). 
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ON ERROR is the standard means of handling exceptions which arise from operations 
on invalid data. For example, a runtime cnor will result from attempting to invert a singular 
matrix. The standard fixup for this error is to print a message, return the identity matrix, 
and continue execution. In the program segment above an ON ERROR statement is used 
to substitute a zero for the identity matrix. 

It should be noted that use of this form of the ON ERROR statement replaces the 
standard fixup. Hence it prevents the generation of an error message. Many implementations 
impose a limit on the number of errors that may occur before the program is terminated by 
the system: When a user-supplied handler is invoked, the error is not counted toward this 
limit. 

Once an ON ERROR statement is executed, the specified error handler remains in effect 
until it is deactivated. One means of deactivating an error handler is shown below: 

. * 


p: 

progpam: 

DECLARE H MATRIX; 


OS ERROR 
00 ; 

m 

M = o; 

CO TO Li: 

end; 

m 

M * n ; 

Li: 

« 

KRITE(61 H; 


CLOSE p; 
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PROORAm 

DECLARE H MATRIX. 

X tHTEQERt 
00 FOR X • I TO 101 
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« » o: 

GO TO Li; 
ENO; 

• 

« s rt ; 

« 

in WXT£(6I «; 


EJ«3; 

CM system; 

t»-Z7 


CLOSE p; 


Hca\ the keyword S\’STKM is used in place of an executable statement as the activm of the 
ON FRROR, This statement has tl.v etfect of restonni* the standard Tixiip for ERRORS 
(4 ^7) To see why this statement is needed, suppose that additional inverse operations were 
coded later in tlie p*ot:ram. and this statement was omitted. If one of these operations 
caused an error, control would be transferred to the user handler />/ ihc mnUk of u ioop. 
This would he disastrous, since the compiler assumes that a loop can only he entered by 
execution of the DO . . . statement at its head, riuis, // u/i error handler is eoJed in a loop, 
It should alwavs he dcuetivaied at exit from the loop. In general, it is good practice to de- 
activate error handler as soon as they are no longer needed. 

The statement: 

ON HRRORS (X:Y) SYSTHM; 

^ restores the default (system) recovery I'ction fur error X:Y (group X, code V ). In addition 

* * to SYSThM and an executable statement lONORI' can be used ;is the action of an ON 

TRROR statement, as in: 

ON FRRORS (4 :7) KINORT. 

This statement in fonns the error recovery system that inverting a singular matrix is not to 
be considea'd an error; i.e. that the standard fixup (returning identity) is appropriate and 
that execution should continue without an error message or other notification. Depending 
on the compiler in use. IGNORH may not be permitted for certain errors. 
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When an ON ERROR statement is executed, an error recovery action is established for 
an error or group of errors. Three recovery actions are possible; 

1) an executable statement to receive control, (in lieu of the standard ftxjp and an 
error message): 

2) SYSTEM, which is the initial state and includes both the standard fixup and an error 
message; and 

3) IGNORE, which requests the standard fixup without an error message. 

Any number of recovery actions may be in effect at one time. In a sense, the actions are 
cumulative. If the code below were executed, four recovery actions would be in effect. 


n p: 

n pROGBxm 
n OECUPC SCAL«P, 

n A. B* c; 

n OCCLARC INTEGER* 

n X, Y, zi 

n ON ERROR 

n do; 

n URXTEU) A* B. C. X» Y. z; 

n retl-vn; 

« Vtoi 

N ON ERROR 

S 10:5 

H peturm; 


ON 

CPRCR 

ibno^e; 


lO: 


ON 

ERROR 

system; 





c 

c 

c 

n LAST card: 

f1 CLOSE Pi 


The net effect of these statements is: Any end of file error, except on channel five, will 
be ignored, and any other error, except 4:2, will cause the WRITE and RETURN statements 
to be executed. If error 4:2 occurs, the system action will be taken, and when 10:5 occurs, 
P will close. Tliis shows that the handler for error $ (10:5) takes precedence over the 
handler for error S (10:). The general rule that applies is: When the error speafications in 
siveral at five ERROR statements in a single block apply to a particular error, the most 
specific takes precedence. Thus, as each of the last three ON ERROR statements in P »s 
executed, the number of errors handled by the fust and most general one is reduced. 

Note that the rule above applies only to ON ERROR statements in a single block 
(program, procedure, function, etc.). The effect of ON ERROR statements in nested blocks 
will be discussed in the next section. Note also that an ON ERROR statement has no effect 
until it is executed. 
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Exercises 

10. 1 A Where does the flow of control go after the action of an ON ERROR statement has 
been executed? 

10. IB Why is it good programming practice to deactivate any error handler that is coded 
inside a loop when that loop is exited? 

10. 1C What are the three possible recovery actions in the event of a runtime error? 

10. ID Write the precedence relations for the 3 general forms of subscripting for the ON 
ERROR statement when they occur in the same code block. 


10.2 DEACTIVATING ERROR HANDLERS 

An error handler can be deactivated in three way?: 

1 ) by overriding it with a new h.^idler, 

2) by exiting from the containing block, 

3) by using the OFF ERROR statement. 

All of these methods are affected by the HAL/S block structure. A pweedure or fum tUm 
cannot make any permanent change to the error environment of its caller. This statement is 
a consequence of several rules which will be described with reference to the figure below. 
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PROGVAm 

ON ERROR IGNORE 1 
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CALL 81 
CALL Cl 

B: 

procedure; 

ON ERROR 

Vt 

GO TO X; 

CALL c; 

XI HRlTEtil *GOT AN ERROR*; 
CLOGE b; I 

C: 

PROCEDURE 1 
CLOSE Cl 
CLOSE a; 
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None of the statements shown can produce an error; however we will discuss what 
would happen if ERRORS (1:2) were caused by nn additional statement inserted at various 
points 

It th» er or occurs in block A proper (i.e. outside of B and C), the IGNORE action will 
be taken, e* en after B is called and returns. This is because any error handler defined in a 
block is cmcelled when that block RETVRNs or executes its CLOSE statement. When B 
retuiTi. rne error environment reverts to that in effect when B was called. In this case, the 
IGNORE action is re*instated. 

When the ON ERROR statement in B is executed, the IGNORE acticn is temporarily 
overridden by the GO TO action. This action then remains in effect until B returns. If the 
error oc:urs in B. but before the GO TO action is set up, the IGNORE action is taken. 
Merely invoking a block docs not change the error environment. When B calls C, the GO TO 
action is still in force; if ERRORS (1:2) occurs in block C, control will be passed to the 
label X in block B. In effect, C returns to X instead of to the point of invocation. When this 
happens, the error environment is restored to that which prevailed before C was called, just 
as if C had returned normally. 

In the example, block C is also called directly from block A. In this case, of course, the 
ON ERROR statement in B has no effect; if the error occurs in C when it has been called 
from A, the IGNORE action is taken. Thus, we see that the range over which an ON 
ERROR statement is active is not determined by the static block structure, but by the 
actual sequence of CALLs and RETURNS. 

The left-hand diagram below shows the static block structure of a program A, which 
is suitable for describing the scoping rulit for variables. 


A 
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B 




C 


1 1 
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**outer" variable can be 
referenced. 


**upper*' blocks affect error 
environment. 
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The right'hand diagram illustrates the range of ON ERROR statements within A, B and C. C 
occurs twice in the diagram, at the ends of different limbs. Since all intervening blocks 
between a given block and the top of the tree may be scanned for handlers when an error 
occurs, a block's error environment depends not only on local ON ERROR statements, but 
those in the calling block, and in the caller's caller, and so forth. Block C may be affected by 
B's error environment even though it cannot access B*s variables. 

Now that the basic concepts have been illustrated, the rules for deactivation of error 
handlers can be stated precisely: 

1 ) When a code block exits (by RETURN. CLOSE, or due to an error) the error envi- 
ronment H restored to that in effect when the block was entered. 

2) An error handler may be replaced by execution of an iJtrtuUaliy subsiriptea ON 
ERROR statement in the same block. 

3) An error handler may be temporarily overridden by creating another handler in a 
“lesser" block (i.e. lower in the call tree) which applies to the same errorfs). 

4) An error handler may he completely erased by execution of an identically sub- 
scripted OFF ERROR statement in the same block. 

These are the only ways that an error handler may be deactivated. Note that there is no 
limit to how far up the call tree the system will search for a handler when an error occurs. 
As stated previously, when a particular block contains several handlers that could apply to 
the same error, the most specific is selected. Other active blocks are searched only if no 
handler at all for this error is found in the current block. 

The OFF ERROR statement may be used to cai^el the error handler created by a cor- 
responding ON ERROR statement. There are only four possible forms: 

OFF ERROR; 

OFF ERRORS (nl:n2); 

OFF ERRORS (nl:); 

OFF ERRORSnl; 

and of these, the last two are equivalent. The effect is simply to cancel an identically sub- 
# scripted ON ERROR statement in the same block. If no such ON ERROR statement has 

been executed, the OFF ERROR statement has no effect. 

The primary use of the OFF ERROR statement is to re>instate an error handler in the 
calling block which had been overridden by a local ON ERROR statement. An example of 
this usage appears in the following figure. 
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a: 

prosrah; 


ON error 
CO TO x; 
CAU St 

S: 

PROCEPURf ; 


OtI ERROR I6N0RE; 


Off ERROR; 


CLOSE b: 


CLOSE a; 


It should be noted that the handler cancelled by an OFF ERROR statement must not 
only be in the same block, but it mu.i describe exactly the same errorts). For instance, the 
sequence: 

ON ERRORS I IGNORE; 

ON errors: IGNORE: 

OFF ERROR; 

would leav*' two handlers active, since the OFF statement is more feneral than the ON 
statements. To «.ancel them both would require two statements: 

f ' * OFF ERROR$(l:>: 

. ' OFF errors:; 

Likewise, the sequence: 

ON ERRORSd:) IGNORE; 

OFF ERRORSd.:); 

does not exclude ERRORSd ::> from the handler. Unless there is an idenricaHy (plus or 
minus a trailing colon) subscripted ON ERROR statement in the same block. OFF ERROR 
will do nothing. 


r 


• 


. ^ ’ 
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Exercbrs 


lOJA In what ways is it possible for an error handler to be deactivated? 


10.,?B In the followmft examples of sequences of ON ERROR and OFF ERROR state- 
ments. which handlers are left active after the sequence? 

a) ON ERRORSI IGNORE; 

ON ERRORS! 1:2) IGNORE. 

ON ERRORSC D IGNORE; 

OFF ERROR; 

OFF ERRORS! 1:3) 

b) ON ERRORS I IGNORE; 

ON ERRORS! 1:1) IGNORE; 

ON ERRORS!:;) IGNORE; 

OFF ERRORS!!:); 

OFF ERRORS!::!); 


10.3 OTHER ERROR ^ON I ROL CONSTRUCTS 

In additiort to ON and OFF ERROR, which activate and deactivate error handlers, 
HAL/S provides the SEND ERROR statement, which annunciates an error con^iitton, and 
a pair of built-in functions which allow information to be obtained from the recovery 
system 

The SEND ERROR statement has two uses: to simulate the occurrence of system- 
defined errors for testinf and other pui|>oses, and to allow the user to define additional 
error types. It has only one form 

SEND ERROR$!nl:n:i; 

where nl and n2 are intcfers computable at compUe-time and in the valid ranfr of error 
froups and codes i|> .tfkd by the appropriate HAL/S User’s Manual. The effect of the 
SEND ERROR statement is merely to trigser whatever handler has been set up for the 
speciHed error. 

When a SEND ERROR is executed, the error environment it searched for an applicable 
ON ERROR handler. If the action is executable statement, ccmtrol is passed to it and 
execution continues without an error message. If the IGNORE option was specified, execu- 
tion continues at the statement foilcwtng the SEND ERROR, also without a message. If 
the action is SYSTEM, or no error handler is found, then an ervor message is generated. 
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and cither the run is terminated, or execution continues at the statement foDowing the SEND 
EPROR. The User's Manual states whether execution wilt continue* after an error of each 
system-defined type. Generally, if the group and code are not system^efmed (i.e. not listed 
in the User's Manual) the SYSTEM action allows execution to continue. Thus, it is possible 
to write a ‘'standard fixup" for a user-defined error, as shown below. 
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10610' 

ruNtrxoNfxi ksuo; 

oicuac X SCSLAII; 
xr X > 0 TH2M 

ainwN Looixi / leoaoii 

JLSI 

00 ; 

SCNO Iffno* ; 

♦n 

acnam lOotAasixn / loaiioii 

INDI 

CLOSf LOOIO; 


Tow. when LOG 10 is invoked with a negative argument, eiiror 9 . 1 will result. This error 
may be handled by the calling routine in the usual way; e.g. 

DECLARE N SCALAR INITIaU I); 

ON ERROR$(9:l) DO; 

N • .00; 

END; 

WRITE( 6 ) LOClOfN), 

This code will write log| 0 ( 100) If the next two stalemcnts were: 

OFF ERROR$(9:l); 

WRITE( 6 ) LOC»ut -99); 

there would be no aetWe handler for error 9: ). so an error message u oulu be printed and 
execution would continue at the second RETURN statement in LOG 10. Thu RETURN 
statement serves as a "standard fixup" for a negative ergument to LOCtO; in this case, 
i^Iq( 99> would be relumed by the function. 


•Snow impltmmutkus msy allow an error to oectti (or be shciJsied) a gives musbei ol times before ter 
sdBsUsg Others ouy siwsys costinse or slwsyi lensisaie. 
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SEND ERROR is a relatively expensive statement: when an error Ls sent, many machine 
instructions may be needed to search the error environment for an appropriate handier. 
Hence, it should be used only to indicate exceptional conditions, or “errors’*, not condi- 
tions which are expected to occur frequently. The SEND ERROR statement is most 
appro/riately used in utility routines (procedures and functions that are invoked from many 
plac o indicate in^lid arguments, and in instances where a “catastrophic** condition is 
<tc vvrf^d by*^ery low level code but can only be handled in an outer block, perhaps by some 
sort of controlled restart. 

In addition to the ON, OFF, and SEND error statements, HAL/S provides two built-in 
functions, ERRGRP and ERRNUM, which provide information about previous errors. 
These functions do not i:quire any arguments; they return integers which represent the 
group and code, respectively, of the last error that occurred in the process* that invokes 
them. If no errors have occurred, they return zero. 

These functions are used primarily when a number of errors arc handled by a single 
ON ERROR statement, as illustrated below: 

ON ERROR DO; 

WRITE(6) ‘RUN STOPPED DUE TO ERROR* 
liERRGRPM ‘:* I | ERRNUM; 

RETURN; 

END; 

One additional form of ON ERROR statement is provided. This form allows event 
variables to be manipulated when an error occurs. The form of this type of error recovery 
action is described in the language specification. Event variables are discussed in Chapter 
Twelve, 


Exercises 

10.3 A What are the two uses for the HAL/S SEND ERROR construct? 

10.3B Say we enter a program block, P, which calls some procedure A, which in turn 
calls procedure B. In the code block for B, there is an ON ERROR$(l:) IGNORE 
statement and no other error handlers. Now say error (1:3) occurs during the 
execution of the program. Does the program need to search code blocks A and P 
for the error handlers for error (1 :3) or will it automatically ignore the error because 
the statement ON ERRORS 1 was found in that block? 


*The term proceu is defined In Chapter 1 1 . Here it may be taken to mean a program and all of its internal 

blocks. 
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End of Chapter Problems 

Consider a HAL/S program with the following lexical structure: 
P: PROGRAM 


ON ERRORS 1 IGNORE; 
ON ERRORS2 IGNORE: 


ON ERRORSO;) IGNORE; 


OFF FRROR$(2:): 

© 

CLOSE B; 


CLOSE A; 
> 

CLOSE P; 


Say the execution of the program 
procedes as follows: 

P executed 

P calls A 

A - (TT) executed 



A calls B 



PROCEDURE; 

B ( 

© 

executed 

® 

B - ( 

executed 

ON ERROR$(l:2) IGNORE; 

B returns to A 


OFF ERRORSd:); 

A 


executed 

® 

A 


executed 

B: PROCEDURE; 

A returns to P 


OFF ERRORS! 1:2); 

ON ERROR$(2:l) IGNORE; 

P 


executed 


execution st<>ps 

What happens if the following 
errors occur at these times (i.e., 
error message or no error message)? 


a) 

ERRORSd :1) 

at 


b) 

ERRORSO:!) 

at 

Q 

c) 

ERROR$(2:l) 

at 

w 

d) 

ERRORS(2:2) 

at 

0 

t) 

ERRORSd :2) 

at 

0 

0 

ERRORS(2:l) 

at 

0 

g) 

ERRORS(2:l) 

at 

0 

h) 

ERRORSd:!) 

at 

0 

i) 

ERRORSd: 2) 

at 

0 

j) 

ERRORSd :3) 

at 

0 

k) 

ERRORS(3:3) 

at 

0 

0 

ERRORSd:!) 

at 

0 
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1 1.0 STRUCTURING LARGE APPUCATIONS 

In this chapter the discussion of the HAL/S facilities for building a program complex 
consisting of many separately compiled pieces is presented. First, we will describe the unit 
of compilation, which has been a PROGRAM in previous chapters but is not restricted to 
this type. Then we wilt discuss means of putting these units together in a way that is suit- 
able for particular application. Finally, we will introduce the concept of multi-program- 
ming and discuss some of the methods of safely sharing code and data between programs that 
execute '^simultaneously**. This discussion will lead into the real-time control statements to 
be presented in Chapter Twelve. 

11.1 THE UNIT OF COMPILATION 

A unit of compilation is a sequence of HAL/S statements which comprise a complete, 
valid input to the compiler. It must be either a program, a procedure, a function or a corn- 
pool (common data pool). Programs have already been discussed at length, though no means 
of invoicing them has yet been presented. This is because programs receive control directly 
from an operating system, not from other HAL/S code. 

Procedures and functions can be compiled independently so they can be shared among 
programs; a compool is a blcKk of data that can be shared among separately compiled units. 
Thus, programs are the primary compilation units while the others provide global code and 
data. 

There are two majOT reasons for dividing a software system into separately compilable 
units. Obviously, when several programmers collaborate on a system, it is convenient if they 
can compile their own work independently. A more important reason stems from the way 
program units receive control. The capabilities of the operating system in use may determine 
the appropriate structure for an applicaticm. 

Under an operating system which supports the full HAL/S real-time syntax (described in 
Chapter Twelve), many programs may be "simultaneously** active and compete for the use 
of the computer hardware based on a user specified priority. Provision is made for programs 
to be run cydicly, to wait for given occurrences and to receive control when interrupts 
occur. The operating system provides these capabilities for the invocation of PROGRAMS 
and TASKS (collecurdy called processes). Thus, a software system may be divided into 
programs to implement a desired dynamic (real-time) structure. 

Unlike procedures, functions and tasks, programs and compools may not be nested in 
any other blocks. 

The following figure shows how these blocks might be used in a simple flight application. 
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This diagram shows the software divided into ♦hrcc programs* each with internal pro- 
cedua^s and functions, and a compool and three independently compiled subroutines. All 
together, there are seven compilable units which must be compiled in an appropriate se- 
quence and linked together. In the remainder of this section we will discuss the rules for 
writing the components of a program complex. 


The LIMIT function and the procedures, KILTER and INTERPOLATE, are compiled 
separately so that they can be called from any of the programs. Such procedures and func- 
tions are called comsubs (from “common subroutines'*). A comsub mav he coded etactfy as 
if it were contained in some program. For instance, the LIMIT function might be exactly as 
rt appeared in Chapter Seven. 
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LiftiT; I 

FUf.cno^nvALur* esuNO) scalar; 

DECLAPE SCALAR. 

VALUE, eoi^a): 

IF VALUE > eou.*0 THEM 
PiTUPti Bcur.?; 

IF VALUE < -BOUf« THEN 

return -row®; 

RETURN value: 

CLOSE unit; 


Aside from the fact that a comsub is not contained in any block, and thus cannot reference 
outer variables via name scoping rules, all of the statements about procedures and functions 
made in previous chapters also apply to comsubs. 

Some of the consequences of this general statement may not be immediately obvious. 
For one, comsubs may have additional procedures and functions nested within them. Scop- 
ing rules apply to blocks contained in a comsub just as they would to blocks contained in a 
program. In fact, the only significant difference between an independently compiled proce- 
dure without parameters and a program is the manner of invocation: programs are never 
CAL Led and procedures normally do not receive control directly from the operating sys- 
tem. 

It is also worth noting that the error recovery system does not distinguish between com- 
subs and internal procedures and functions. If an error occurs in a comsub and no local ON 
ERROR statement applies, the error environment of the calling block is searched, whether 
that block is a program, another comsub, or ah internal procedure of some program or 
comsub. 

Comsubs are also referenced in the same way u corresponding internal blocks; there is 
no way to tell by inspection of a CALL statement or function invocation whether the refep 
enced block is internal to the compilation unit or external (a comsub), Comsubs may have 
any number of arguments of any type, exactly as described in Chapter Seven. The various 
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rules about matching data types, restrictions on ASSIGN parameten, automatic conversions, 
etc., still apply. In order to enforce these rules the compiler needs to know the declared 
types of comsub’s formal parameters. This information is communicated via the block tem- 
plate. 

Under most implementations of the HAL/S compiler, a block template is automatically 
generated whenever a program, comsub, or com pool is compiled. The block template con- 
tains all the information needed to reference that block from another compilation unit. In 
the case of a comsub, this information consists of its name, the sequence and types of its 
formal parameters, and the type of Its return value, if any. A comsub is made accessible to 
a compilation by including its template. For instance, a program which uses the LIMIT com- 
sub is shown below: 

D INCLUDE TEMPLATE LIMIT 
P: PROGRAM; 

DECLARE X SCALAR iniTlAL(12); 

X = LIMIT(X,10); 

CLOSE P; 

INCLUDE is a compiler directive, as denoted by the character D in column one. It in- 
structs the compiler to merge the template for block LIMIT into the compilation at the 
point of the INCLUDE directive. Any number of templates may be so included; the NAVI- 
GATION program might be compiled as: 

column I 

4 

D INCLUDE TEMPLATE GNC_POOL 

D INCLUDE TEMPLATE LIMIT 

D INCLUDE TEMPLATE FILTER 
NAVIGATION: PROGRAM; 


CLOSE NAVIGATION; 

Note that these templates are included prior to the program statement This syntax 
emphauzes the fact that the blocks GNC_POOL, LIMIT, and FILTER are external to NAV- 
IGATION. The printed output from the compiler contains a listing of each template that 
was included. The template for LIMIJ appears below: 

LIMIT: EXTERNAL FUNCTION(VALUE,BOUND) SCALAR; 

DECURE SCALAR, VALUE, BOUND; 

CLOSE LIMIT; 

The template for a comsub consists of the header line with the word EXTERNAL inserted, 
the declarations of any formal and assign parameters, and the CLOSE statement. These are 
the only portions of a procedure or function block that are relevant outside that block^. 


^Scoping rules mike other data items irrelevant, and no way of branching into the middle of a block is 
provided. 
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The format of a block template is unimportant when a compiler with automatic tem- 
plate generation and the include directive is used. These features are present in all current 
compilers, but they are not included in the HAL/S Language Specification and thus are not 
guaranteed to be present in all implementations. The format of a template is specified, how- 
ever. Hence, if the template cannot be INCLUDEd, it may be hand-coded as part of the 
source prior to the program statement. 

A program may invoke a comsub if it includes the template for that comsub prior to the 
program statement. This mechanism provides for executable code to be shared among sepa- 
rate compilation units. 

Programs generally need to share data as well: the only way to pass information from 
one program to another is via a compooL A compool is a named block of DECLARE, RE- 
PLACE, and STRUCTURE statements; the variables in a compool are accessible to any com- 
pilation unit which INCLUDES the compoofs template. 

The diagram at the beginning of this section shows how a compool is used to interface 
the Guidance, Navigation, and Control programs. This compool could be coded as shown 
below. 
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GKC.TOOL! 

cenroou 

pououiNO oecuacs are nav to suxoance interfaces 

OECURE RCSITION VECTOR! 

DECLARE velocity VECTOR! 

FOLLOIINS DECLARES ARE 9UIDANCE TO CONTROL CONNANDS 

DECLARE RITCM.COmANO SCALAR! 

DECLARE ROLL.COMNAKO SCALAR XNZTZAirO)! 

CLOSE 6NC.P00L! 


As this indicates, a compool is delimited by a block header and a CLOSE statement 
much like the other block types. Unlike other HAL/S blocks, however, a compool consists 
only of a DECLARE group\ no executable statements or nested blocks are allowed. It may 
contain DECLARE and REPLACE statements and structure templates. Generally, any 
DECLARE statement which may appear in a program may appear in a compool. There arc 
only two exceptions; both resulting from the lack of executable code in a compool; no 
AUTOMATIC data is allowed in a compool, and no label (e.g. function and NONHAL pro- 
cedure) declarations are allowed in a compool. It should be noted from the example that 
static initialization is allowed, and takes the same form as in other blocks. 
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Compiling a compool serves two purposes: to reserve a block of storage containing any 
specified initial values, and to generate the compool template. A compool template contains 
all of the information present in the compool source. In fact, if automatic template genera> 
tion is not available, the template may be constructed from the source merely by inserting 
“EXTERNAL*' before *‘COMP<X)L*’ in the block header. Normally, however, only an IN- 
CLUDE directive is needed to make compool variables accessible to another compilation 
unit. 

When a program includes a compool template, the variables in that compool may be ref- 
erenced, assigned, and used in any way appropriate to their data types. Placing a variable in 
a compool rather than at the program level does not, by itself impose any restrictions on the 
way that variables may be used by the program. This includes references to the variable 
from nested blocks; we will discuss the application of scoping rules to compool variables 
and comsubs in the next section. 


Exercises 

1 1.1. A What are the major reasons for building a program complex with comsubs and corn- 
pools, as opposed to a single large program? 

1 MB Say an error occurs in some comsub, and no ON ERROR statement that applies to 
the error is found in the comsub. What determines the error handler in this case? 

1 1 . 1C a) Since a compool contains no executable statements, why must it be compiled at 
all? 

b) What is the purpose of a compool template? 

11. 2 BUILDING A PROGRAM COMPLEX 

From the viewpoint of scoping rules, the templates included in a compilation comprise 
an outermost block in which the main compilation unit (i.e. the program, comsub. or com> 
pool being compiled) is nested. 

Chapter Seven described the HAL/S scoping rules in terms of block diagrams like the one 
following. From these rules it follows that: 

1 ) The comsub S can be called from anywhere within blocks P and Q. 

2) The variables A and B can be referenced from anywhere in blocks P and Q. 

3) The variable X can be referenced only from block S. 

This example illustrates the position of template with regard to the main compilation 
unit. 
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Compilation 

C: EXTERNAL COMPOOL: 
DECLARE SCALAR, A, B; 
CLOSE C; 

S: EXTERNAL PROCEDURE(X) : 
DECLARE X SCALAR: 

CLOSE S: 

P: PROGRAM; 

Q: PROCEDURE: 

CLOSE Q; 

CLOSE P: 


Block Structure for Scoping Rules 



From the diagram, one might conclude that A and B can be referenced from block S: 

This is true if and only if the template C is included when S is compiled. Thus, the “outer- 
most block" is not universal; its contents may appear different to each compilation unit, 
depending on which templates are included. This mechanism supports “private" compooU 
and comsubs, as we shall see. 

Returning to the example of the communicating GUIDANCE, NAVIGATION, and 
CONTROL programs, suppose that the templates included by each of the seven compilation ^ 
units are as indicated below: 


Compilation Unit 

Type 

Templalet Included 

NAVIGATION 

program 

GNC_POOL. LIMIT. FILTER 

GUIDANCE 

PROGRAM 

C.NC_POOL 

CONTROL 

PROGRAM 

GNC_PCX)L. FILTER. INTERPOLATE 

GNC.POOL 

COMPOOL 

NONE 

LIMIT 

FUNCTION 

NONE 

FILTER 

PROCEDURE 

LIMIT 

INTERPOLATE 

PROCEDURE 

GNC.POOL 








With this structure, the contents of the “outermost block" vary considerably from compila- 
tion to compilation, as shown: 
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POSITIO!!, VELOCITY 
PITCH CftO, ROLL .CMO 

r uwn I 

r ' riiTER ' — I 


NAVIGATION 


LIMIT 


FILTER 


POSITION. VELOCITY 
PITCH CUD. ROLLJ'IQ 


GUIDANCE 


*tnJtcates the module being complied. 


As the previous table implies, any type of compilation unit may include the template of 
any other compilation unit. Thus, comsubs may access compool variables or call other corn* 
subs; compools may include the templates of other compools. (to utilize global REPLACE 
statements defining array sizes, for instance). Program blocks also have templates which may 
be included by any type of compilation unit; we will see the utility of program templates in 
later sections. 

From this discussion it can be seen that access to comsubs and compool variables is con- 
trolled by the inclusion of templates. In building a particular program complex it may be 
desirable to set up managerial rules concerning which modules may access which data and 
subroutines. Comsub templates are included one at a time, but when a compool template is 
included, all of the variables in that compool become accessible. If it is desirable to partition 
compool data, either of two approaches may be taken; the ACCESS system may be used or 
multiple compools may be created. 

ACCESS is a HAL/S keyword. Under some versions of the compiler, an externally main- 
tained data base of access-rights information can augment the normal scoping rules to 
further restrict (not expand) the visibility of comsubs and compool daU. This system is im- 
plementation dependent, somewhat complicated, and will not be discussed further in this 
book. However, further details arc contained in the Language Specification. 

The simplest method of restricting access to compool variables is via multiple compools. 
For instance, the following structun might be a better arrangement of the compool data for 
the example program complex. 
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Here, the interfaces between GUIDANCE and CONTROL are in one compool, and the 
interfaces between NAVIGATION and GUIDANCE are in another. The NAVIGATION and 
CONTROL oroirams would include only one compool each: in this way multiple compools 
tend to limit the possible inRuences of one compilation unit on another. In this case, no 
data is shared between NAVIGATION and CONTROL. 

The GUIDANCE program would have to include the templates for both compools. The 
order in which these templates are included is irrelevant: all compools are included at the 
same level. Thus, the previous diagram of scoping rules while compiling GUIDANCE still 
holds. Since them is always only one scope level outside of the mam unit of compilatior., 
ihe names of variahies in one compool musi not duplicate the names of variables in another 
compool if both are included by a single compilation unit. 

There are, of course, other constderations in structuring an applicatmn as a set of com* 
pilation units. For mstance, it may be convenient to use only one compool so that all global 
data can be found in a single listing or so it will be contiguous in memory ^or telemetry pur* 
poses. The addressing modes of some computers may create an efficiency trade*off between 
Che number of compooU and their average si/es. Finally, in the next section, we will see that 
compools can be eliminated through the use of TASK blocks; this decision involves addi- 
tional trade-offs. 

Suppose, however, that the original configuration of three programs, one compool, and 
three comsubs, has been chosen. In this and the previous section we have dewribed how the 
various compilation units are coded. The remaining problem is to compile them in the 
appropriate order. Since templates are automatically generated* when each block is com- 
piled, the ^"lowest level** compilation units must be compiled first. Given the table of tem- 
plates included per compilation presented earlier, an appropriate sequence for this program 
complex Is: 


*lf automsiic itmglaie gtntration is not avatlablt. ths order of compilation is irrekvant. 
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GNC POOL, LIMIT, FILTER, INTERPOLATE, GUIDANCE. 
navigation. CONTROL 

Generally, the necessary order of compilation can be determined by inspection. Starting 
with compooU. then proceeding to ''utility** comsubs, other comsubs. application programs, 
and finally "control" programs is usually adequate. However, the following algorithm will 
always produce an acceptable sequence if one exists: 

1 ) Produce a list of templates included by each compilation tlike the one given here). 

2) Compile each module which requires no templates (except for those templates al- 
ready generated). 

3) Remove the modules that have been compiled from each list. 

4) If not done, repeat step two. 

It is possible that a point will be reached where every module requires at least one template. 
If M). ih.*n there is no suitable sequence. This can happen for three reasons, all of which are 
rare; 

1) Recursion If A calls B and B then Calls A. no sequence is appropriate. Solution 
Change the structure, recursion will not work anyway. 

2) A pair of ptograms schedule or wait for each other, Solution: Hand-code one tem- 
plate or re-structure. 

3) Trouble with initialized NAME variables. Solution: Break the loop of circuLu refer- 
ences (see Chapter Thirteen). 

These difficulties almost never occur in well designed program complexes. 

The constructs we have discussed in this chapter are intended for putting a collection of 
HA LIS modules together. A means of invoking NOVHAL procedures and functions was pre- 
sented in Chafer Seven. If part of a program complex (e#. special-purpose hardware inter- 
faces) must be written in assembly langu^. a few ad. tional constructs are helpful. These 
are: 

1 ) RIGID compools, which are similar in concept to RIGID structures; 

2) EQUATE EXTERNAL statements, which can make IIAL/S variables accessible from 
assembly language; and, 

3) the ability to write comsubs in assembly language. A set of macros for this purpose 
is germliy supplied with the compiler system. 

More detail on »heK features may be found in the Language Specification and the appropri- 
ate HAL/S User’s Manual. 

Another option in designing a program complex is the use TASK blocks instead of 
programs. The software we have been discussing co-dd be wriitc,. as the single compilation 
unit sh jwn in the figure on the next page. 
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P' 

pffocffiWi 

oiciAffi vccm> 

fosirioN* 

oceiAji^^jcAiAff, 

MTOI.CHP. ffou^tros 

U«IT: 

rUNCTZOH iCAUUK 


ClOif IXHITI 

ruTM* 

FtOCIOUIEt 


ctof f riimi 

ZNtlff^OUTtl 

mocieutit 


Cim ZHTEtfPUTIt 

•UZOANCfi 

TASKS 


eoNTiMTs Of tmoAMei piioitAM iMioeirxio 

Close SUXeANCIl 

NAVISATXONi 

TASK! 


Close mnunmi 

COWTSOi* 

taw; 


Close CONTSOlt 
Close s; 


Uks fHOfTMM, UAm m codo Mocks thst rtetivo control directly from the opetstins 
system. Tsiks esnnot he CALLec*; they are used to implement real-time rei|uirements in the 
•ame way as prosnuns. In fact» the only distinction between proframs and tasks is that tasks 
must alwayt be nested In profranm and may not themaehriA contain further program or task 
Mocks. Thim the only chanfe needed to convert a program to a task is in the header tUte> 
ment; the declare group, eaecutsMe stotements, and any netted procedures and fusetiont 
remain exactly the same. 
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HAL/S allows one level of nested real-time processes: tasks witnm programs. Scoping 
rules treat all blocks the same. Thus, a task and all of its internal procedures and functions 
may access data declared at the program level. 

1'ask blocks allow any realtime structure to be implemented within a single compilation 
unit. In Chapter Twelve, a set of realtime control statements will be presented. These :^te- 
ments instruct the operating system to start executing a program or task at some rate and 
priority, to stop cycling a process, and so forth. The use of tasks as well as programs to im- 
plement a real-time structure tends to minimize the amount of com pool data, and allows re- 
lated processes to be consolidated in a single compilation unit. One disadvantage of using 
task blocks is that they can only be SCHROULEd,CANCELLed. etc., from within the ron- 
taining program. If a system consists of several programs, each containing tasks, then the 
''controP' code which activates and de-acCivates the various processes must he distributed 
among the several piograms. 


Exercises 


I I.2A Consider the following block structure of a program complex: 


DECLARE SCALAR, A. B; 


P: PROGRAM; 


F: FUNCTION; 

DECLARE INTEGER, A, B ; 


P. PROCEDURE ; 
DECLARE I INTEGER ; 


From which blocks can the scalars A and B be referenced? 

1 1 ,2B In he figure on page 1 1*2, it is shown that the compool GNC_POOL is not included 
in the compilation of the unit FILTER. Why not? 
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M ,2(' Whv is It desirable that Uic names ol* variables in a conipool be unique with respecC 
to the names of variables in other com poids? 

1 1 .JO The text states that a reasonable order tor compiling the various units for the exam- 
ple on page 1 1-00 is: 

GNC PCX)L. LIMIT. f lLTLR. INTI RPOLATH, GUIDANCE. 

NAVUIATION. tX)NTROL: 

For each of the following possible orders of compilation, state whether they will 
necessitate the hand coding of one or more templates, and why. 

a) C.NC KX)L. INTERTOLATK. (UMDANCE. LIMIT. NAVK'.ATION, FILTER, 
C'ONIROL 

b) GNC KX)L. INTI RKM ATF. LIMIT, CONTROL. FILTER. GUIDANCE. 
NAVIGATION 

c> (;NC„P00L. INTERPOLATE, (JUIDANCK. LIMIT, FILTER, CONTROL. 
NAVKJATION 

d) NAVIGATION. CONTROL. GUIDANf'b. LIMIT. FILTER. INTERPOLATE. 
C.NC P(X)L 


11.3 MULTl-PROGRAMMlNG CONSIDERATIONS 

We have used the term "process" to refer to cither a program or a task; this terminology 
is used throughout the HAL/S documentation. The term multi-processing, however, has 
come to refer to the execution of software on a computer or set of linked computers which 
can literally execute more thi*n one piece of code at a time. e.g. programming multiple 
physical processors. The term "multi-programming" refers to the appearanve of this situa- 
tion: the use of cither actual multiple processors or simulated multiple processors In the 
latter case, the computer's central processing unit is 'Time-shared" or allocated to each 
active process iui a brief interval in succession. Reallocation of the CPU may result from 
initiation or completion of I/O, expiration of a time limit, or other factors. Since it is not 
passible to pivdict which HAL/S statement will be executing when a "process-swap" 
OCCUR*, programs must be designed so that a swap can safely occur at any point. 


*ln fact, th« timing may not be repeatable. 
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MUlTi: 

FROCffAM; 

OCCLARC 9CALAR. 

A, e. c; 


IF A NOT « 0 TNCN 

do; 

e « c / Ai 


end; 

T: 

task; 

A ■ 0; 

CLOSE t; 
CLOSE NULTl; 


Consider the above code. Suppose that MULTI receives control and executes the IF 
statement, finding A not equal to zero; then, for some reason, the processor is reallocated 
to task T. When T completes, MULTI will resume where it left off, and divide hy zem. 
The problem is that two processes share data (viz. A) without any protection from an un- 
timely process-swap. If we could guarantee that the swap would never occur between the 
test for A^O and the division by A. the problem would be solved. This can be done by 
means of the UPDATE block and heked data, as shown below. 
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BETTER * 

PR06RAH1 

DECLARE A SCALAR LOCK! XU 
OECIARE SCALAR. 

B* c; 


ufoate; 

xr A NOT * 0 tNEN 

do; 

B > G / a; 
end; 

close; 

t» 

task; 

UHiATEl 

A » d: 

close; 

CLOSE t; 

CLOSE better; 
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Three changes have been made in the BETTER program: the variable \ has been de- 
clared with the attribute LOCK( I ), and both uses of A have been enclosed in UPDATE 
blocks. The parenthesized “P' indicates the assignment of A to lock group one. The use of 
other lock groups is discussed later in this section. 

Data which is used by more than one process should normally be locked. Locked data 
can only be referenced from within an update block; the system ensures that only one up- 
date block which uses a given lock group is active at any instant of time. Thus, this capabil- 
ity is as good as preventing process swaps over a sequence of statements: a swap may occur, 
but the new process will not be permitted to execute an update block that pertains to the 
same lock group. An update block allows a process to obraw exclusive access to one or more 
locked variables. When an update block finishes, the locked variables become available to 
other processes, which also must access them via update blocks. 

An update block is executed when the sequentia’ flow of control reaches it; in this re- 
gard it behaves like a simple DO . . . FND group. t,owcver, from the viewpoint of scoping 
rules, an update block is equivalent to any of th other block types; it may even have its 
own DECLARE group. An update block behaves like a procedure with respect to error re- 
covery, except that the “calling” block is defined to be the immediately containing block. 
An update block may be nested in a block of any other type (except compool), and may 
contain further procedure or function blocks. There are some restrictions on the executable 
statements that may be used in an update block. The following are prohibited: 

1) I/O statements, 

2) Calls to procedures or invocation of functions, except for those nested in the update 
block, and 

3) Real-time statements except for SET, RESET, and SIGNAL (see Chapter Twelve). 

These statements are not allowed in update blocks, primarily because they potentially take a 
long time to execute. It is desirable to minimize the time spent in an update block because 
while an update block is executing, other processes may be stalled even if those processes 
are more critical (of a higher priority). 

It is almost always necessary to LOCK data which is used by more than one process. The 
compiler does not enforce this rule, and there are cases (e.g. read only data) in which the 
protection offered by locked data is not required. These cases are the exception rather than 
the rule. For instance, the GNC_POOL compool from the earlier example should be coded 
as: 


GNC_POOL: COMPOOL; 

DECLARE POSITION VECTOR LOCK(l); 
declare VELOCITY VECTOR LOCK(I); 
DECLARE PITCH_CMD SCALAR LOCK(2); 
DECLARE ROLL_CMD SCALAR LOCK(2); 
CLOSE GNC_POOL; 



It't6 Stmcturmg Large A pphcations 


Here, two lock groups (I and 2) are used. Group 1 is used for the Navigation toGuid* 
ance interface, and group 2 is used for the Guidance to Control interface. The selection of 
lock groups is entirely up to the user; the only constraint imposed by the HAL/S system is 
an implementation-dependent maximum number of lock groups. It would be possible to use 
the same group for all locked data, and this may be convenient during initial development. 
An appropriate assignment of lock groups, however, can lead to improved throughput. This 
is because several update blocks can be active simultaneously provided that each uses a dif- 
ferent lock group, or set of groups, with no overlap. Hence, the overhead associated with a 
number of process swaps may be avoided. Furthermore, the amount of jitter in cyclic proc- 
esses may be reduced, since the chances of being stalled or suspended due to update block 
conflicts are lessened. In our example. Control will never have to wait for Navigation since 
their update blocks reference variables from different lock groups. 

The Guidance program might begin as in the ftguie below. As this code implies, it is 
sometimes preferable to copy a small amount of data <Pi jlTION and VELOCITY) rather 
than extend the update block to include all of the comp stations involving these variables. 
This minimizes the impact to other processes while stili af irding the protection against, for 
instance, processing a vector that has been only partially ui tated. 


INCLUDED 

TEMPLATE 


M 

GKC PDCL5 

M 

CX7£K>.‘AL CCMPCOLJ 

M 

CKUPi FOSITICH VECTOaOl LOCKdi; 

n 

OECURE VELCCITY VECTWI3I LOCKdi ; 

n 

OECUARc PITCH CCV.C:3 SCALAR; 

n 

OICLAKE R0U.C0:C1At,O SCALAR IMlTIAUOl; 

n 

CLOS*; 

D 

VERSION I 

n 

6UI0ASCEJ 

n 

PR OCR an; 

H 

CECURE VECTOR* 

« 

VSLE. POSHS; 

n 

D<CL.;RE X. Y» OTHERS; 

n 

COPt^lUPUTSt 

n 

UPDATE; 

e 

- 

M 

V£L2 * velocity; 

C 

- 

H 

PC3N2 « positxcn; 

n 

CLOSE COPY.INPUTS; 

c 


c 

. 

c 

• 

n 

CLOSE GUIOAKCE; 


1 his example also shows a labelled update block. The label is optional, and is used here 
only for self-documentation. 

There is one exception to the general rule that locked data may only be referenced from 
within an update block: A locked variable may be passed as an assign parameter to a proce- 
dure. This does not defeat the protection, however, since the corresponding parameter 
declaration must also specify the LOCK attribute; thus it in turn can only be referenced 
from within an update block or passed to further procedures. 
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The update block and locked data provide a means of safely sharing data among inde* 
pendent real-time processes; a similar mechanism for shared code is provided via EXCLU- 
SIVE procedures and functions. This type of protection is specified more simply. Just the 
appearance of the word EXCLUSIVE on a procedure or function header makes that block 
accessible to only one process at a time. To see how and why this feature is used, consider 
this function. 


M rtEAN: 

H FUNCTION(A) SCAUI? EXCLUSIVE; 

H DECLARE A AmYt»l SCALAR; 

H DECLARE TOTAL SCAUR INITIAL! 01 AUTOMATIC; 
M 00 FOR TEM?0RART I » I TO SIZEUAH: 

H TOTAL « TOTAL ♦ A ; 

S I 

M end; 

M RETURN TOTAL / SIZE! (All; 

H CLOSE mean; 


Suppose the MEAN function was not exclusive. If two processes invoked it, there could 
be a conflict in the use of TOTAL, even though it is only assigned from within MEAN. If 
one process had executed part of the loop when the other invoked MEAN and AUTO- 
MATICally re-initialized TOTAL, the first process would get an invalid result. Thus, the 
problem with sharing procedures and functions among processes is a shared data conflict on 
the heal data declared in the shared block. This problem can be avoided by making shared 
code blocks EXCLUSIVE. No new construct s needed when an exclusive procedure or func- 
tion is invoked, but the system will prevent multiple simultaneous users of the block by 
stalling the second process that tries to invoke it. Exclusive routines are sometimes used for 
operational reasons having nothing to do with shared data. For instance, a procedure to do 
inertial measurement unit (IMU) calibration might be made exclusive simply to avoid the 
risk of calibrating more than one at a time. 

Another keyword that can be specified instead of EXCLUSIVE is REENTRANT. 
Neither one is the default: if a procedure or function is not EXCLUSIVE or REENTRANT 
then it cannot safely be invoked from multiple processes, but no protection mechanism is 
present. 

A REENTRANT procedure or function may be executed '‘simultaneously** by several 
processes. That is, if program A is executing a reentrant procedure, R. when it is interrupted 
by program B which also invokes R, when B completes and A resumes, there will be no ad- 
verse affect. 

Simply coding the keyword REENTRANT is not sufficient to make a block safely “re- 
enterable**. The following rules must also be obeyed: 

1 ) Any block invoked by the reentrant block must also be reentrant, and 

2) Any local data must be declared to be AUlOMA TIC whether it is initialized or not. 
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We have already slated that the difficulty in sharing a code block is really a conflict in 
the use of local data. Inside a procedure or function with the R£ESTRANT attribute, the 
effect of the AUTOMATIC attribute is expanded, Hach user of a reentrant procedure ac- 
cesses a separate copy of the local variables if they are automatic. Thus, any conflict is pre- 
vented. Parameters and TEMPORARY data cannot and need not be automatic. The MEAN 
function can be made reentrant simply by changing the EXCLUSIVE keyword to RE- 
ENTRANT. The necessary conditions for successful re-entrancy are described more fully 
in the HAL/S Language Specification. 


This chapter has defined the unit of compilation, and introduced the idea of a program 
complex, consisting of several real-time processes. It has described how global code and data 
can be made accessible to these processes, and how the adverse effects of **simultaneous'* 
access can be avoided, in Chapter Twelve, we will describe the HAL/S statements for creating 
and controlling these processes and further discuss multi-programming concepts and their 
application to aerospace systems. 


Exerdaes 

I I.3A A bank runs several programs to modify savings and checking accounts in a multi- 
programming environment. The procedure MOVE. SAVE. TO, CHECK, used to 
move money from a savings account to a checking account, is shared by all the pro- 
grams, and looks like this: 

MOVE„SAVE^TO_CHECK: PROCEDUREflD, AMOUNT); 


SAVINGSSID « SAVINGSSID AMOUNT; 
CHECKINGSiD * CHECKINGSID+AMOUNT; 


CLOSE; 

SAVINGS and CHECKING are compool variables shared by all the programs. 

a) What potential error is present in this system? 

b) How can it be fixed? 

1 1.3B The bank in exercise II. 3A awards interest periodically and records each interest 
transaction for later printing on the customer's statement. The shared procedure 
AWARD_ INTEREST performs this task: 

AWARD_INTEREST: PROCEDURE(ID): 

DECLARE INTEREST INTEGER; 
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INTEREST = SAVINGSSID INTEREST RATE; 
SAVINGSSID = SAVINGSSID+INTEREST; 
call L0G_INTEREST(ID. INTEREST); 


CLOSE; 

a) What potential em>r is present? 

b) How can it be fixed? 
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12.0 REAL-TIME STATEMENTS 

Most aerospace applications have a set of timing constraints which comprise a major 
facet of the entire problem definition. Meeting these constraints generally requires interac- 
tions with an operating system. 

Real-time operating systems for flight or process control applications can vary in many 
ways. Nonetheless, certain capabilitir s, such as invoking a code block at a specified fre- 
quency, are almost always provided. 0y examining several operating systems, it is possible 
to abstract a set of primitives (i.e. conceptual operating system functions) in which the vari- 
ous facilities can be expressed. Then the real-time requirements of an application can be 
described without referencing any particular operating system. The HAL/S statements de- 
scribed in this chapter are such a set of primitives, through which real-time requirements can 
be expressed in a machine-independent manner. 

HAL/S suggests the point of view that real-time constraints are an intrinsic part of the 
application; i.e. that timing is part of the algorithm rather than something to resolve *'later**. 
As a result, real-time statements are integral to the language, and allow the programmer to 
express the entire algorithm directly and in one place. 

Real-time statements isolate the programmer from operating system details in the same 
way that aritfunetic expressions isolate the programmer from details of machine instructions 
and data formats. A standard syntax for real-time operating system interactions greatly en- 
hances the portability of application programs. In particular, it allows flight programs to be 
simulated on ground-based computers; since the timing interactions are expressed in HAL/S, 
re-compiling is sufficient to translate the entire algorithm. 

The mechanisms for communication among real-time processes were described in 
Chapter Eleven; this chapter will discuss the set of HAL/S statements which control the 
initiation, termination and synchronization of processes. These statement* are all execu- 
table; each implementation includes some technique outside of the HAL/f language for 
specifying one or more initial processes which can then use the real-time statements to 
create and control additional processes. 

12.1 THE SCHEDULE STATEMENT 

The figure on the next page shows the use of SCHEDULE statements to create new 
processes. As the syntax implies, these statements create cyclic processes which will receive 
control from the operating system at the speciHed intervals. The intervals may be specified 
by any arithmetic expression in the REPEAT EVERY clause; the units are implementation 
dependent but generally these values are expressed in seconds. In any case, the units of time 
values throughout any particular implementation will be consistent. Seconds will be 
assumed in the rest of this chapter. Hence, the three processes scheduled by STARTUP 
would repeat at the rates of once, six times, and twenty times per second. 
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startup: 

mcsPAn; 

GUlDAHCe: 

task; 


ClOSf 6UI0AHCE: 
HAVIGATIOM: 

task; 


CLOSE navigation; 
control: 

TASKS 


CLOSE CONTROLS 

SCHEDULE NAVIGATION PRIORITYUOl* REPEAT EVERY l.OS 
SCHEDULE GUIDANCE PRIORITY! 70). REPEAT EVERY 1 / «S 
SCHEDULE CONTROL PRIORITY! SO). REPEAT EVERT I / EOS 
CLOSE STARTUP; 


HAL/S docs not impose any restrictions on the periods of cyclic processes created in 
this way; however, it may not be practical to provide complete generality in a flight oper< 
ating system. Simplifications such as rounding all time values to the nearest millisecond are 
to be expected in flight systems: The appropriate HAL/S User's Manual and any operating 
system documentation should be consulted. It has become common practice, however, to 
develop and test HAL/S software on large ground-based computers (host computers) before 
executing on flight (target) equipment. These ground-based implementations generally do 
not impose any restrictions on real-time statements other than those described in the Lan- 
guage Specification, thus allowing a large range of operating system types to be simulated. 
In this chapter, a complete implementation will be assumed, but the reader should not ex- 
pect to find all of these capabilities in any particular flight operating system. 


Suppose that the average execution time of the GUIDANCE. NAVIGATION and 
CONTROL tasks are as shown in the table below. 


Taak 

Rale 

AverafeTime 

Total Time 

GUIDANCE 

6/sec, 

SO ms 

.3 sec. 

NAVIGATION 

1/sec. 

100 ms 

.1 sec. 

CONTROL 

20/sec. 

25 ms 

.5 sec. 



Total Time » 

.9 sec. 
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Since these tasks together occupy only 9/10 of a aecoml per second, it is clear that the sped- 
tied rates are attainable. However, it would be extnmely diftkult to impktnent thisstruc* 
ture using CALL and DO CASE statements as was done in Chapter Seven. The difficulty can 
be seen by examining a time-line of these tasks* execution: 


NAVIGATION 

□ □ 

GUIDANCE 

□ □□□□□□ 

CONTROL 

OOQDDDDDOQDDDDODDDQOO 




The trouble is that no matter how the initiation of these processes is phased, a time will 
occur when more than one process is due to execute. If only CALL statements were used, it 
would be necessary to either tolerate a substantial jitter in the execution frequency of each 
task, or to break each task into many small procedures which would be called in a very com- 
plex sequence. 

By the um of SCHEDULE statements, u shown in the example STARTUP, the timing 
conflicts can V/e automatically resolved. As we have already stated, the operating system can 
re-allocate the central processor at any point in the execution of a process, subject to the re- 
strictions resulting from update blocks and exchttive procedures. If two processes ere due 
simultaneously, the highest priority process receives control. The purpose of the priority 
clause in the SCHEDULE statement is to aliow the system to resolve conflicting requests 
for the hardware resources. In the example. GUIDANCE becomes ready while CONTROL 
is executing about half the time. Since its privity is less than that of CONTROL, 
GUIDANCE is stalled until CONTROL completes. Every time GUIDANCE executes, 
CONTROL comes due in the middle; here ag^, the priorities govern the situation, and 
GUIDANCE is stalled (interrupted) while CONTROL runs. When CONTROL completes, 
GUIDANCE resumes at the point of interruption. As long as the shared data protectkm fea- 
tures of Chapter Eleven are used, this system action has no impact on the c^ing of either 
task, althou^ some overhead Is associated with the process swap. 

Since CONTROL can interrupt either of the other two processes, the jitter in Its period 
of execution will be very small. Aside from the system overhead involved in swapping proc- 
esses, delays in the execution of CONTROL can result only from awaitii^ the release of 
locked data or an exclusive procedure by one of the other processes. GUIDANCE can be de- 
layed by the unavailability of a diared resource or by the execution of CONTROL; 
NAVIGATION can be interrupted by either of the others. Consequently. NAVIGATION ^ 
will getkerally run in very short bursts spread out through the entire second. 
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The example actually consists of four processes: the three tasks and the STARTUP pro- 
gram. The priority and other characteristtcs of STARTUP are determined extemaily* either 
through a SCHEDULE stat^ent In another compilation unit or by default during system 
startup. Usually a HAL/S real-time executive will start a single program as a non-cyclk, 
process; this program must then schedule aU other programs and tasks. The priority of the 
STARTUP program affects the sequence in which the tasks are initiated. If STARTUP ic at 
priority Hfty, when it Khedules NAVIGATION at priority sixty, NAVIGATION becomes 
the highest priority ready process and therefore receives control immediately. STARTUP 
is stalled until NAVIGATION relinquishes the processor. This happens when NAVIGATION 
reaches its CLOSE statement; since it was sch^uled to run only once per second, it enters 
an inter-cycle wait and ceases to be a ready process. This makes ^aRTUP again the hipest 
priority ready process, so it receives control and executes the second SCHEDULE statement. 
The same situation is repeated with GUIDANCE and CONTROL. 

The effect of thcK SCHEDULE sutements, then, seems very much tike a set of CALL 
statements. One maior difference is that the GUIDANCE, NAVIGATION and CONTROL 
tasks will continue to execute at the specified rates after STARTUP reaches its CLOSE 
statement, even though STARTUP executes only once. Furthermore, each HALfS real 
time process has its own error envirtjnment. Any error handlers in STARTUP have no effect 
whatsoever on the action taken if an error occurs in one of the tasks. Finally, the situation 
would be different if STARTUP had a higher priority. 

With STARTUP at priority fifty, the following time-line describes the first few cycles: 


STAkTUP 

Ij 

3 Q C 

1 

NAV16ATI0N 




ttllQMa 


□ 



CORTkOl 


□ dDD 


1 


That is. Navigation and Guidance each complete a full execution uninterrupted before she 
higher priority task(s> are scheduled. This may wen simplify the system. If STARTUP was at 
priority one hundred, however, the lime-line would be completely different: 
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In ihis case. STARTUP executrn all thrrc SCHEDULE statements before any other process 
receives control; hencti^ the first cyck is not substantially different from any other. 

When STARTUP reaches its CLOSE statement, it enters the watt state. This is similar to 
an inter’Cycle wait, hut does not result from timing considerations. A program remains 
active as long as any of its tasks are active, due to the possibility of shared data and utility 
routines at the program level. It is said to be “waiting for dependent processes'*; the mem- 
ory allocated to the program cannot be released. If the tasks are subsequently cancelled (i.e. 
cease to cycle), the program completes as well; it is neither ready nor waiting, but simply 
done and forgotten. In the terminology of the Language Spcciftcation, it is no longer “in the 
process queues*'. 

The minimum form of the SCHEDULE statement contains only a process name and a 
priority, as in; 

SCHEDULE STARTUP PRIORITY! 100); 

If no repetition option is specified, the program or task executes only once. The REPEAT 
EVERY specifies cyclic execution with a fixed interval between the beginnings of the 
cycles. The REPEAT AFTER option is very similar, but the fixed interval is between the 
end of one cycle and the start of the next, as illustrated in this figure. 
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The REPEAT AFTER form specifies the len|th of the inter-cycle period of waittni. Sf RE- 
PEAT AFTER is specified, the average time between executions is the sum of DT and the 
average execution time whereas it is simply DT in the case of REPEAT EVERY. The primary 
advantage of the REPEAT AFTER form » that a cycle overlap error cannot occur. If proc- 
ess A in the previous example executes more than DT seconds in a particular cycle, it will 
come due ag^n before it compktes. This results in a runtime error for which no ON ERROR 
handler can be written. Process B above can execute lor any length of time without an ovf^ 
lap, since the start of the next cycle is delayed until DT after the previous cycle completes. 

The primary disadvantage of the REPEAT AFTER option is that it may make system 
verification more difficult. Use of this option tends to make the time-tine of the entire sys- 
tem unrepeatable. If the outputs of a control system depend on the sequence in which vari- 
ous processes are executed, a huge number of runs may be required to show that no unac- 
ceptable transients are introduced by timing fluctuations. On the other hand, if REPEAT 
AFTER is used for less critical processes, the entire system may respond belter to ovr * >ad 
conditions. 

If REPEAT is specified without either AFTER or EVERY and a time: 

SCHEDULE X PRIORITYf 1 7), REPEAT; 

the process is immediately restarted at the end of each cycle. This is equivalent to **.RE- 
PEAT AFTER 0;*'. This option is generally used for processes intended to use **teft over** 
time for lelf-test, etc., and for processes which issue WAIT statements. Use of the simple 
REPEAT option is not substantialv different from coding an infmtte loop around the task 
body and Kheduling it as a **one-snot**. The effect of the CANCEL statement is different, 
rrnS under some impkiiientatlons error recovery may differ as well. 

The SCHEDULE statement hat several other options in addition to the three REPEAT 
forms. These options aBow the start of a process to be delayed until a snedfic condUkm is 
met, and allow canceBatkm criteria to be tpectfkd at the time a process it scheduled. Both 
begin and end conditiom and a repetition option may be used in a tingle SCHEDULE state* 
meni, as shown below. 
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This statement will cause the program or task P to be initiated with priority 49 at 5.4 
seconds after the execution of the SCHEDULE statement. Subsequently, it will be ex- 
ecuted* every ,03 seconds for 94.6 seconds and then be terminated. 

The IN and UNTIL options allow any arithmetic expression. This expression is a time 
value in the same units as in the repeat options, generally seconds. The IN option requires an 
interval of time whereas UNTIL expects an absolute lime: this is the same as the normal 
English usage of these words. Since the RUNTIME function returns the current value of the 
system clock, “IN 5.4“ is equivalent to “AT RUNTIME+5.4", a form which is also accept- 
able to the compiler. 

All of the arithmetic expressions in a SCHEDULE statement arc evaluated only once, 
when the statement itself is executed. Subsequent changes to the variables used in these ex- 
pressions do not affect the scheduled process. 

The various scheduling options must be specified in the correct sequence, and only one 
of a given type is allowed in a single statement. The sequence of phrases in a SCHEDULE 
statement is: 

1 ) SCHEDULE and a process name 

2) An optional begin condition: IN, AT or ON, 

3) A priority, 

4) An optional REPEAT clause, 

5) An optional end condition: UNTIL or WHILE. 

The ON and WHILE conditions reference event variables, which will be described in Section 
1 2.2. First a few special cases of the time options need mention. 

Normally, the IN or AT time used in a schedule statement is in the future. If the speci- 
fied time has already passed, the process is readied immediately. There is one exception: if 
AT is used with the REPEAT EVERY option and the time has already passed, phased sched 
filing is performed. The first execution of the process occurs at the time given by the sum of 
the “AT“ time and the period (REPEAT EVERY delta) of the process. This allows a “syn- 
chronous'* real-time structure, which is further described in the Language Specification. 
Phased scheduling tend^ to minimize the number of processes that are ready at any one 
time. 

Normally, the UNTIL time specified is in the future. If it is already passed, then the 
SCHEDULE statement has no effect. The UNTIL clause can never stop a process in mid‘ 
execution. If the UNTIL time arrives while the process is executing, it is allowed to finish its 
current cycle. The UNTIL and WHILE clauses can only stop a process before its first execu- 
tion or during an inter-cycle wait. When the end condition specified in a SCHEDULE state- 
ment is .satisfied, the process isCANCELIcd rather than TERMINATEd, a distinction which 
will be explained in Section 1 2.3. 
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^Assuming that its priority ii sufficient to obtain necessary resources. 
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Exwkm 

I -.1 A Draw a time-lino Tor one second's exoculmn ol' the pmccsscs schednied below. As- 
sume that each pnHess executes for .SO ms per cycle. 

SOlHHIli: A PRIORI l Y(UK)h RI PFAl I VI RY l/r», 

SC'IU DUlb B PRIORITYim RITFAf i VRRY 1/3: 

SC MI DMI ( PRIORI rY('>8). RPPl Al I.VI RY Ml: 

I MB Draw a time-line for the priKcsses in exercise 1 2. 1 A. but with all occurrences of 
PVI RY changed to Al TPR. 

\1.\M Cuven two tasks. X and Y, both of which use one half second per iteration, wntc 
schedule statements that will run X continuously for two seconds, then alternate X 
and Y for two secotids. and then run Y half the time for two more seconds. Use only 
two schedule statements. 


U J fcVFNT VARIABLEvS 

The three forms of begin-condition in a SCIIHHU I statement are: 

IN ’‘arithmetic expression". 

AT '‘anthmetic expres.sion". and 
ON "event e\pres.sion". 

Two of these fonns describe a begin-vx-indition in terms ol time; the third fonn, ON, lets 
scheduling de|>cnd on conditions or occurrences which do not happen at a predetermined 
time. Suppose, for example, that the GUIDANCH. NAVIGATION and CONTROL tasks of 
the previous example are used during launch of a spacecral't, but when orbit is achieved, 
GlIli)AN( !• and ('ONTROL are to be replaced with another task, FRLIT'ALL. If the time 
at which orbit will be reached is known in advance, this can be done with the AT and 
UN'riL clauses alreaily presented. Otherwise, it is appropriate to dcclan: an event variable 
to correspond to this occurence os in; 

DI CIARI ORBIT I VI-NF. 

Then the desireit transition can he specified in the SCHEDULE statements as shown in the 
next example. When an event variable is signalled, as in: 

SIGNAL ORBIT;, 

all tff'rirr exprtssiom which reference that event are evaluated. In this case three active 
event expressions reference ORBI L When the SKiNAL statement causes ORBI I to l>ccome 
TRUE, these expressions are all satisfied: GUIDANCE and CONI ROL are cancelled via the 
UNTIL clauses, and FREEEALL is started via the ON clause. 

An active event expression is a himlean combination of event variables used in a real- 
time statement which has not yet been satisfied. Event expressions are formed in the same 
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way as boolean expressions using the AND, OR, and NOT operators. However, all variables 
in an event expression must be events. In the simplest case, an event expression consists of a 
single event variable; e.g. “ORBIT’ in the SCHEDULfc statements above. A boolean com- 
bination of event variables is only considered an event expression when it is used in one of 
the real-time statements. An active event expression is one that has never evaluated to 
TRUE since the containing real-time statement was executed. Once ORBIT is signalled, the 
event expressions in the SCHEDULE statements are no longer active. Signalling ORBIT 
again will have no eiTect unless additional real-time statements which reference it are exe- 
cuted. 
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startup: 

FROSRAHJ 

DECLARE ORBIT EVENT; 

guidance: 

task; 


CLOSE guidance; 
navigation: 

TASK; 


CLOSE navigation; 

control: 

task; 


close control: 

FREEFALL: 

task; 


CLOSE FREEfAU; 

SCHEDULE NAVIGATION PRIORITY^ G0)» REPEAT EVERY l.O: 

SCHEDULE GUIDANCE PRIORITY; 70 1. REPEAT EVERY 1/6 UNTIL ORBIT; 
SCHEDULE CONTROL PRIORITY! 80 1, REPEAT EVERY 1 / EO UNTIL ORBIT; 
SCHEDULE FREEFALL ON 0R3ZT PRIORITY; 7S ) » REPEAT EVERY 1 / lO; 
CLOSE STARTUP; 


When an event expression is used in the UNTIL or WHILE clause of a SCHEDULE state- 
ment, it can cause cancellation of a process. When used in the ON clause of a SCHEDULE 
statement or in a WAIT statement, it can cause a process to be readied or stalled. Event ex- 
pressions are used only in SCHEDULE and WAIT statements, and always serve as a condi- 
tion under which the state of some process is to be changed. 

There are three types of event variables: latched and unlatched declared events, and 
process events. All events have only two states, ON and OFF; the distinction between 
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latched and unlatched events is that an unlatched event does not retain its state. ORBIT is 
an unlatched event since the LATCHED keyword was not specified in its declaration. It is 
initially OFF or FALSE. When the SIGNAL statement is executed it becomes momentarily 
TRUE, just long enough for all active event expressions which reference it to be evaluated. 
SIGN A I is the only statement which c:in affect the value of an unlatched event. 

As stated above, an event expression can be a boolean combination of event variables. 
Since an unlatched event is only true during the execution of a SIGNAL statement, and 
only one event can be sigi.:!hpj at a time, the logical coivunction (A A B) of two unlatched 
events will never be satisfied. This is one reason for using LATCHED events, as illustrated 
below: 


H P: 

H PR0G9AN: 

H OECLAPC ORBIT tVENT UTCHEO IMITIALCFALUi; 

H DECURE EKSIHE^OFF EVENT UTCMEO INITIALI FALSE M 
M 6U10AKCE: 
n TASK! 
n CLOSE! 

!! PRXORimTOI. REPEAT EVERT 1/6 UNTIL ORBIT AND ENGINE OFF? 

n CLOSE p; 


Here, GUIDANCE will continue to cycle until both ORBIT and ENGINE^OFF are true at 
the same time. This can happen in several ways. The sequence: 

SET ORBIT; 

SET ENGINE^OFF; 


will cause GUIDANCE to be cancelled. When a latched event variable is SET it remains true 
until it is RESET. A latched event may also be SlGNALIed. In this case, the state of the 
event is momentarily invt.ied for the duration of the SIGNAL statement, just as in an un- 
latched event. Thus, 

SET ORBIT; 

SIGNAL ENGINE__OFF; 

will also cause GUIDANCE to be cancelled, as will: 

SET ENGINE^OFF; 

SIGNAL ORBIT; 

However, if one event is first signalled and (hen the other set, there will be no time at which 
both arc true, and GUIDANCE will continue. The advantages of using unlatched events will 
become clearer when the WAIT statement is introduced. 
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The third type of event is a process event. These events are not declared by the program- 
mer, but automatically defined to correspond to the state of each program or task. The 
process event has the same name as the program or task, and is true from the time the proc- 
ess is scheduled until it completes its last cycle. The process event of a cyclic process re- 
mains true during the mter-cycle wait, and during any other stall or wait state. Process 
event:* ranuot be SET, RESET or SIGNALIed* they simply reflect the state of the process of 
the same name. 

Process events can be used to solve a problem in the GUIDANCE and CONTROL to 
FREEFALL transition of the previous example. Since a process cancelled ' ia the UNTIL 
clause of its SCHEDULE statement is allowed to finish its current cycle, FREEFALL will 
start before the other tasks have finished if they are active at the time the event expression 
becomes true. This difficulty is corrected in the following code. 


startup: 

program; 

OCCURK ORSIT EVENT UTCHfD; 

guidance: 

task; 


CLOSE guidance; 

navigation: 

task; 


CLOSE navigation; 

control: 

task; 


CLOSE control; 
FREEFALL : 

task; 


CLOSE FREEFALL; 

SCHEDULE NAVIGATION PRIORITYtAO), REPEAT EVERT 1.0$ 

SCHEDULE GUIDANCE PRIORITYI 70 1 » REPEAT EVERY 1/0 UNTIL ORSIT; 

SCHEDULE CONTROL PRIORITTIOO)* REPEAT EVERY I / EO UNTIL ORBIT; 

SCHEDULE FREEFALL ON (ORBIT $ NOT GUIDANCE A NOT CONTROLl PRIORITY! 7S I . REPEAT EVERY 1 / 10; 
CLOSE startup; 


The FREEFALL process is initiated when ORBIT is true and both other tasks have com- 
pleted their last cycles. In this case, ORBIT must be a latched event and it should be SET 
rather than SIGNAUed. 

The effect of SET, RESET and SIGNAL on latched and unlatched events is summarized 
in the table on the next page. As shown SET and RESET leave a latched event in the TRUE 
or FALSE states, respectively. When a latched event is SIGNALLed, its state is momentarily 
inverted. Unlatched events are always FALSE, except when SIGNAL makes them momen- 
tarily TRUE. 
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Set 

Rewt 

Signal 

unlatched event 

illegal 

illegal 

Take all event actions 
depending on TRUE 
state of <cvcnt var> 

latched 

event 

old 

value 

is 

FALSE 

1 . Set event state 
to TRUE 

2. Take all event 
actions depending 
on TRUE state of 
< event var> 

no action 

Take all event actions 
depending on TRUE 
slate of <cvent var> 

latched 

event 

old 

value 

is 

TRUE 

no action 

1 . Set event state 
to FALSE 

2. Take all event 
actions depending 
on FALSE state 
of <event var> 

Take all event actions 
depending on FALSE 
state of <event var> 


Events can also be tested in non-reaUtime statements; e.g 
IF ORBIT THEN DO; 

Boolcans and events may be freely mixed in boolean expressions. However, when used in 
any statement other than SCHEDULE or WAIT, an unlatched event is always false. 

The SCHEDULE statements allow begin and end conditions to be specified in terms of 
either time or event expressions, but the repetition option can only be specified in terms of 
a constant interval of time. The WAIT statement allows a piece of code to execute at irregu- 
lar intervals. 

Suppose a process is required to execute whenever ORBIT is false and ENGINE_OFF is 
true. The schedule statement can be used to initiate a process the first time this combination 
is true, as in: 

SCHEDULE RE_IC.NITE ON NOT ORBIT 
AND ENGINE _OFF PRI0R1TY(999); 

A convenient means of allowing this process to execute every time the event expression is 
true is shown on the next page. 
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P: 

PROGRAfi: 

OCCLADE EVENT* 

6K*GIME^OFP. 

OTBIT UTCHEO; 

SCHEDULE RE^IGNITE FRICRITYI V99){ 
RE^IGNITEJ 
task; 

DO UHILE true; 

WAIT FOR EWINE.OFF t -CRBITJ 


end; 

CLOSE rc.ignite; 
CLOSE p; 


When the WAIT statement is executed, if the event expression is true, execution continues 
at the next statement. If the event expression is false when the WAIT statement is executed, 
the process is stalled until the expression becomes true as a result of e\ent variable changes 
by other processes. If the event expression in a WAIT statement is not immediately satisfied, 
it is put into the pool of active event expressions; the process containing the WAIT state- 
ment is stalled (taken out of the READY state) and the highest priority ready process re- 
ceives control. The process issuing the WAIT can only continue when the specified condi- 
tion is satisfied. 

Suppose that ORBIT and ENGINE_OFF are both latched events. If they are SET and 
RESET from some process other than RE_IGNITE, it is possible that RE_IGNITE will exe- 
cute too many times. Since it is of such a high priority, R£_1GNITE may finish processing 
and re-execute the WAIT statement before the other process has a chance to RESET 
ENGINE_OFF. In fact, if RE_1GNITE is the highest priority process and contains no other 
WAIT statement, it will continue to loop to the exclusion of every other process. If the RE- 
SET statement can be pF ’ in RE_IGNITE right after the WAIT statement the problem is 
solved, but the situatioi Id be avoided altogether by using a SIGNAL statement instead 
of SET. Since SIGNAL leaves an event in the true state just long enough for all active event 
expressions to be evaluated, there is no possibility that RE_IGNITE will re-issue the WAIT 
statement while the event is still true. The SIGNAL statement is generally used when an 
event is expected to change its state repeatedly, as there is no need to RESET^ it in prepara- 
tion for the next use. Note, however, that if the process which is to wait for the event has 
not already executed its WAIT statement, the SIGNAL has no effect. 


^Signal momcfltirily invem the state of a latched event. If a process waits for the false stale, SIGNAL 
avoids the need to SET the event before the next cycle. 
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Consider the two communicating processes below: 
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PROGRAM; 

DECLARE D0_50METHIKS EVENT; 

DECLARE DONE EVENT LATCHED ZNXTZAL(OPP); 
SCHEDULE T PRICRITY(50); 

SICM4L oo.something; 

UAIT FOR done; 

T: 

task; 

MAIT FOR DO.SOMETNING; 

SET oor;E; 

CLOSE T; 

CLOSE p; 


In this example, if the priority of P is greater than SO, neither process will ever complete. If 
the priority of P is less than 50, T will execute its WAIT statement before DO^SOME- 
THING is signalled, and both processes will complete. If P is the higher priority process, it 
must pause before signalling DO_SOMETHlNG to give T a chance to execute its WAIT 
statement. This could be done by adding; 

WAIT .1; 

just before the SIGNAL statement. 


Exercises 


1 2. 2 A Why does the SCHEDULE statement have both AT and ON clauses? 
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1 2.2B In the program segment below, at which of the points A>D is the event expression Q 
active? 


DECLARE Q EVENT LATCHED INITIAL(OFF); 


A: 


SCHEDULE TASKI ON Q PRIORlTYi57); 


B; 


SIGNAL Q; 


C: 


SET Q; 


I2.2C Let X be a latched event which is initially OFF. How is SIGNAL X; different from 
the sequence SET X; RESET X;? 

I2.2D Re<lo problem 12.IC with the two transitions based on events; assume that un< 
latched events. TRANl and TRAN2 are signalled at r.ppropriate times by another 
process. 
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1 2..F Is a latched or unlatched event more appropriate in each of the following situations: 

a) As the single operand of an ON clause. 

b) As part of a complex event expression. 

c) In a boolean expression. 

d) In the RKSET statement. 

e) In a WAIT statement inside a loop. 

1 2.2F Write code that will cause the state of one event variable, COMPL, to always be the 
inverse of another event. MASTER, which is set and reset by some other code. Do 
not examine the state of MASTER more often than necessary 

U.3 OTHER REAL-TIME STATEMENTS 

The SCHEDULE statement creates a process of some priority and possibly with some 
repetition rate. Begin and end conditions can be specified in terms of either time or event 
variables. These event variables may be SET, RESET and SIGN A Lied by other processes. 
The WAIT statement allows a process to voluntarily release control pending some future 
condition. This condition, like those in the SC'HEDULE statement, may be either a combin- 
ation of event variables or the passage of time. 

In addition to the time option of the WAIT statement, this section presents the CAN- 
CEL and TERMINATE statements, which allow a process to discontinue itself or some 
other process, and the UPDATE PRIORITY statement, which is used to modify the priority 
of a process which has already been scheduled. 

The WAIT statement has three forms: 

WAIT EOR “event expression”; 

WAIT "delta time”; and 
WAIT UNTIL “time”; 

The effect of the statement is the same in all cases: If the specified condition is already true, 
execution continues, otherwise, the process is stalled until the condition becomes true. 

As in the SCHEDULE statement, the expres.sions “delta time” and “time” may be any 
arithmetic expression; both are in the same units as time values in other real-time state- 
ments. The two forms distinguish between a particular time, and an interval of time, which 
is the same distinction as between the IN and AT options of the SCHEDULE statement. As 
before, 

WAIT I; 

is equivalent to: 


WAIT UNTIL RUNTIME + .1; 
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These foims of the WAIT statement are generally used in **sequencing** applications, for in- 
stance to fire a vehick control jet for a given duration or to wait between commands to 
some slow moving mechanical device. They are also useful in testing, to generate a scenario 
of simulated inputs as a function of time. 

Note that the arithmetic expressions in the time-oriented WAIT statements are evaluated 
only once, when the WAIT statement is executed. The expression **RUNT1ME .1" does 
not keep sliding into the future, but is converted to a scalar value when the WAIT statement 
is executed. It is only event expressions that are repeatedly evaluated by the system. 


A further example of the WAIT statement, is shown below. Here, the acceleration 
of a vehicle is controlled to get from HERE to THERE in minimum time by accelerat- 
ing halfway and deaccelerating halfway. Steering is ignored, as is any initial velocity. 
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DECURE VECTCff* 

HERE. THERE t 

OECURE rU)^THRUST COHSTAMTt X2SR|» 
VIH.HAS5 CCHSTANT<S47i)t 
DECURS SCAUR. 

A. a. Tt 

eeCURE eDOLEAM, 

ACC.CHO. oecc.chd; 

A « HAX.TMRUST / VSH.rUSSl 

$ • ARVAUHERE - THERE I / Zl 
T • SORTIE A Sit 

Acclcro > QNt 

UAXT Ti 

Acc.cro • ofFt 

DECC.m « ONI 
UAXT Tt 

DSCC.CHO • orrt 

CLOSE R} 


In this example, "WAIT T introduces a delay of T seconds between setting ACC.CMD 
on, and back off. 

The WAIT statement temporarily deactivates a process; a process can also be perma- 
nently deactivated. A non-cycUc process (no REPEAT clause in the SCHEDULE statement) 
terminates by executing its CLOSE statement, by causing a fatal runtime error, or as a result 
of the TERMINATE statement. A cyclic proceu can cease executing as a result of the 
WHILE or UNTIL clause used when it was scheduled, the occurrence of a fatal error, or the 
execution of a CANCEL or TERMINATE statement. 

The CANCEL and TERMINATE statements are similar in form, each consisting of a 
keyword (CANCEL or TERMINATE) followed by a list of process names, for example: 

CANCEL GUIDANCE; 

TERMINATE STARTUP; 

CANCEL NAVIGATION. CONTROL, P. T; 
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The TERMINATE statement causes immediate, abrupt cessation of the listed processes. i 

Since it may stop a process at any point in its execution, its use is strungly discouraged. The 1 

HAL/S Language Specification imposes additional rules on the use of TERMINATE. The 
only use of TERMINATE which is generally considered acceptable is: 

TERMINATE; 

When no list of processes is supplied, self-termination is impli J. This form of the TERMI- 
NATE statement can serve as a **super return** statement at the PROGRAM or TASK level. 

Since the process **kriOws** its own state, this form is relatively safe. When other processes 
are terminated, it is important to consider all possible points at which they might be exe- 
cuting to ensure safety. 

The CANCEL statement allows an orderly shut-down of the specified processes. Like 
the WHILE and UNTIL clauses c' the SCHEDULE statement. CANCEL can ont\ stop a 
proicss before its first cycle or during the intercycle wait. This allows processes to be 
stopped without the risk of leaving partially updated results. 

Since a cancelled process is allowed to finish its cunent cycle, the CANCEL statement 
may not have immediate effect. Process events can be used to key on the completion of the 
last cycle before scheduling a **replacement** process, as shown below; 

CANCEL X. Y. Z; 

WAIT FOR IX A lY A IZ; 

SCHEDULE XYZ NEW PRIORITY(IO), REPEAT; 


% 


Excfciata 

I2.3A Surround the sutement **WRITE(6) RUNTIME;** with other statements so that the 
values 1/10, 1/S, 1/6, 1/4, 1/2, and 1 will be sent to channel 6. Uk no other I/O 
statements. Do not worry about numeric accuracy. 

I2.3B Given: 

P; PROGRAM; 

DO WHILE TRUE; 

/•something*/ 

END; 

CLOSE; 

SCHEDULE P PRIORITY(IOO); 

What does **CANCEL P;** do** Ho skoM Ihk be done? 
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End of Ouster Problems 

Pa.; of the si^edncation of the flight software for the XYZ aircraft might read as 
follows: 


Category 

lUle 

Functions 

A 

»A 

input processing 
eievon commands 
telemetry 

B 

1/2 Ra 

rudder commands 
guidance 

C 

1/4 

flight control gains 

D 

1/8 R^ 

navigation display 
updates 


The software functions are divided into four categories as shown. Tnc category 
A software is to be executed at the highest possible rate consistent with the through- 
put of the machine and the total worlctoad. The category B software shall execute 
one-half as frequently as category A; the rate of category C shall be half that of 
category B, and the rate of category D shall be one-half that of category C (i.e. one- 
eighth the rale of cate^iry A)/’ 

I2A [mptement the abo' example via the real-time statements. Explain your choice 
of priorities. Fix rate A at one-tenth. 

1 2B Re-do the problem under the original **as fast as possible'* groundrule. 
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13.0 SYSTEM PROGRAMMING AIDS 

The information prewnted in earlier chapters applies equally well to any HAL/S conv 
piler. Except for numeric prectskm, the examples shown will produce the same results under 
any complete implementation of the HAL/S lanyuage. This tran^ferrahility was one of :he 
major desi|m goals ^ the language; it decreases the dependence on the availaHlity of flight 
hardware and cncou; jges the re-use of debugged software. 

In order to provide this degree of machii)e-independence, the language isolates the user 
from details of the underlying hardware; e.g.. the number of bits in a seal a. The arithmetic 
data types. Integer, Scalar, Vector and Matrix correspond to mathematical abstractions. For 
most UMfi, the mapping of theK data types into the data formats supported by a thren 
computer is of no concern. The operations that can be perfe^med on these data types are 
defined in a way that is completely independent of any coinputer architecture. 17 j charKter 
string, boolean, and event types also are defined abstractly: users do not normally need to 
know how much memory is occupied by a boolean or what character code(ASCll, ERCDIC, 
etc.) is used internally. Since these low level decisions are made in the compiler, HAL/S 
code is usually machine-independent. 

While most fUght code implements algmithms that are defined in machine-independent 
mathematical or logical terms, small portions of many prpiects are specified in terms much 
closer to the computer in use. Examples of this low level code are formatting sensor data, 
handhng interrupts, managing real-time clocks, ccmmaiiding special purpose avjcmics, etc. 
These functions are intrtnsicaily machine-dependent ; their algorithms are desqptcd in terms 
of hardwire capabilities and concepts. Thus, there is little chance of sharing this type of 
software between different projects. Transferrabihiy of ^^systems programs** is not a pi ac- 
ticil goal, given the diversity of flight hardware. 

Even thouidi system software is generally specific to a given computer, the other advan- 
tages of hi^ order languages stih apply. Ako, the use of a sin^f la n gua g e for both apptica- 
tiofi and system programs fends to sttnflify interfaces, documentation and training. Iknce, 
HAt/S provides some features for writiniT system software, inchiding the use of pointers 
and low-level bit manipulatkio. 

Theae fealuies are most frvquenily used in software that is intrinsically non-transfer- 
rtble. The restriction of bit man^nilation to the BIT data type, and similar ;onstrainls on 
addresses, lepa ate the postihly machine-dependent systems programs from applics'^' n« 
code. 

13.1 iirsnuNcs 

A bit string is a senes of binary digits. Each digit or bit behaves like a boolean; the 
forms, BOOLEAN and BlTdX ate comple^el: interchangeable. A bit string of length four 
can be created via: 

DECLARE FLAGS 811X4); 

Like vectors, character itiiiig» and other aggregate data types, hit strhici may be luK 
scripted to select single components or partitions. The first, lefitmost, or most significant bit 
of FLAGS Is denoted FLACSSI. The last two Mtswoulo be referenced as FLACSM 2 AT 3). 
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The catenation operator (1 1> also applies, though bit strings differ from character strings in 
that bit strings aiv of fixed length. The AND. OR and NOT operators can be applied to 
entire strings as well as their boolean components. 

The length of a bit -sg must be less than an implementation-dependent limit. This 
limit generally equals the maximum number of bits that can be loaded into a general pur^ 
pose accumulator or register on the target machine. 


Operations on single bit components of a bit string arc generally slower than correspond- 
ing operations on BOOLEANs or entire bit strings. The machine instructions to perform 
these operations also tend to occupy more space.* 


Because of the inefficiency of operating on a component of a bit string while leaving the 
other bits alone, bit strinip» should not routinely be used to pack the individual booleans of u 
program into a single word. One type of situation in which bit strings can be used effectively 
is illustrated below. 
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OECIAPE I imtcgir; 

DECURE B BITI6I; 

DECLARE BOOLEAN, 

Cl* C2* C3i CA. CS. CA. C7. COt 


00 WHILE on; 

00 r OR 1 3 1 TO 100: 

IP B • HEX *00* THEN 

00; 


end; 

ELSE 

00; 


end; 

end; 

IF Cl THEN 
B > on; 


IF « THEM 
B « on; 


*Thit li becauie most memory units are designed to transfer many bits (a byte or word) to or from the CPU 
in one operation. Modifying a single bit generally requires the use of logical or shifting instnictiona to 
preserve the state of adjacent bits. 
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In this code, eight hooleans are packed in a bit string called B. This makes the statements, 
B$l»ON, B$2»ON, etc., less efTicient than references to the individual booleans. Cl, C2, 
etc. However, the statement: 

IF B - HFXWTHFN DO; 

is much more efficient than : 


II NOT (Cl I C2 I C3 I C4 I C5 I C6 1 C7 I C8) THFN 
DO; 

Since this statement is executed much mon^ frequently than the individual assignment . the 
savings from making a simpler test more than offsets the cost of the component assignments. 
Thus, one application of bit strings is to collect booleans for testing as a group. 

The example above tests whether all eight bits are false. Other compound conditions can 
be tested via the AND and OR operators. For instance, the following statement tests for the 
odd-numbeied bits equal to zero: 


IF (B A BINMOIOIOIOlO') - HEXW THEN 
DO; 

The test that bits I and 3 are on and 2 and 5 are of(' can be coded as: 


IF (B A BINM 1101000’) - BINMOIOOOOO* THEN 
DO; 
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When hookans ure collected in a bit string, it is still possible to give symbolic names to 
individual components \ .. HMPLAO' statements, as in; 

REPlA('t MHANINGFUL NAMH BY 

The only comparisons that may be made between bit strings are equality and non- 
equality (« and n «). As with arrays, the comp<incnts are compared in pairs; two bit strings 
are equal if all paiis match, and unequal if any pair misntatches. If two bit strings of unequal 
lengths are compared, the shortest is padded on the left with binary 7.eros befoie the 
comparison. 

This leri padding also occurs prior to logical operations on bit strings of unequal lengths. 
The following assignment statements all have the effect of setting B$6 to ON while leaving 
the other bits alone. 


B^ " ON; 

B * B OR HEX’04\ 
B » B OR IUiX'4‘; 


B « B OR BINMOO*; 

Provided that the implementation dependent limit on bit string lengths is not less than 
twenty: 

B » B OR HEX‘00004* 

will also produce the same results: a copy of B is padded to length twelve before it is ORed 
with the HFXX)04\ and the result is truncated at the left (the most significant four bits are 
removed) before it is stored back into B. 

Partitions of bit strings may be used in the same ways as entire strings, e,g.: 


IF B OCT *17* THEN DO; 

I TO 4 


The width of every bit partition must be known at compile-time. This means that in the 
form B$(X AT Y). X must be an arithmetic expression composed solely of literals, CX)N- 
STANTs, RFPLACH names and the arithmetic operators. In the form B$(X TO Y), both X 
and Y must be computable at compile-time. Chtinuw strings are the only data type for 
whidt variable-width partition subscripting is allowed. 

As we have stated, bit strings should not be routinely used to pack booleani. The Qve^ 
head of referencing the boolean components generally outweighs the savings of compressing 
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them. In the first example* a bit string was appropriate since the entire string was referenced 
more often that its components. 

It may also be appropriate to use bit strings to pack a table of booleans. Since there are 
generally fewer HAL/S statements which reference a table than entries in the tabic, it is 
possible to save memory (at the expense of execution time) by compressing the table while 
expanding each reference. For instance, in the table of 1 000 booleans. 

DECLARE INFO ARRAY(IOOO) BOOLEAN; 
each array element can be easily referenced as in: 

IF INFOS (I:) THEN DO; 


but the table itself will occupy a lot of memory. Each boolean uses a whole byte* word* or 
other addressable unit. To save some storage* this table could be packed as shown below: 
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Now the value of entry number I in the table can be referenced as TESTfl). This will be a 
less efficient reference, but the table size has been greatly reduced. 


DECLARE INFO ARRAYU * 1000 / 161 BITIIO); 

test: 

FUNCTION! XI boolean; 

DECLARE I integer; 

OECLAHE integer. 

UORO. bxtnuh; 

NCPD « Diva. 16>; 

BXTNUn « X - 16 NORO; 

RETURN INFO ; 

N0R0«I:BITNUN«X 

CLOSE test; 


This example assumes that the computer on which the code executes can addre&s 
memory by the 1 6-bit unit. If not* this code could be very much less etficient. Thus, this 
example is not machine-independent. It would still compile and produce the correct results 
on* say* a 24-bit machine* but to achieve the same efficient use of memory would require 
changing the four occurrences of 16 to 24. Thus* one reason why programs containing bit 
strings tend to be less transferrable is that bit strings are sometimes used to control the 
packing of information in **words*' of memory. 


The expression INFOSfWORD: BITNUM) contains both array and component sub- 
scripts. As before* many combinations of simple and partition* component* array* and 
structure subscripts are allowed. 
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One of the most common uses of bit strings in aerospace applications is for formatting 
sensor and display data. For example, a sensor might produce a value in **packed decimal** 
format: six four-bit fields, each containing a number from 0 to 9 (BIN*0000* to BIN*100r), 
packed in a 24-bit word. This could be converted to a simple integer by the following code: 
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OCCUPE INPUT BXT(E4I1 

DCCURE OUTPUT INTEGER INITXAUO); 

00 FOR X « 1 TO XI BY R; 

OUTPUT * 10 OUTPUT ♦ INTEGER! INPUT M 

R AT X 

ENO: 


Here we see that the INTEGER shaping function will accept a bit string as its operand. 
The effect is merely to treat the string as a binary number rather than a series of booleans. 

Conversely, the BIT function allows an integer to be treated as a bit string. The length 
of the string returned is always equal to the implementation-dependent maximum bit 
length. The code below assumes that the maximum is 16; 


H 

DECURE X INTEGER 1 

n 

B BIT! hi; 

n 

REAO(S) x; 

E 


H 

B « BITIIM 

E 


H 

IF B TH,.N 

s 

1 

H 

NRXTEfGl WAIUE OF X HAS NEGATIVE'} 

E 

, 

N 

IF 8 THEN 

S 

• 

n 

HRXTE<6) 'VALUE OF X HAS GOD*} 


This example produces correct results only on a 16-bit 2*s complement or sign-magnitude 
computer. Here the machine dependence results from both the string length of 16 and the 
assumptions made about the interpretation of the first and last bits of an INTEGER. 
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Conversions between bit and integer types use the BIT and INTEGER functions. The 
BIT function als ^ accept a scalar argument, and the SCALAR function will accept a 
bit argument. However, an w/ewie</idre conversion to integer occurs in scalnr-to-bit and 
biMo-scaiar conversions. Thus, BIT(J.5) * BIN’OOOOOOOOOOCKWIOO^ and SCALAR(BIN 
*0100*) “ 4,0. BIT of a scalar between zero and one-half generates a string of binary zeros. 

The value returned by the BIT function is always of the maximum legal length for bit 
strings, as defined for the compiler version in use. This fact must be considered when the 
BIT function itself is subscripted. The last four bits of an integer, I, can be referenced as 

BIT$(4 AT # -3) (I) 
but the expression 

BIT$(I TO 4) (I) 

may or may not select the first four bir« 1. If the number of bits in the representation of 
an integer is less than the bit string length limit, the BIT function will left-pad the bit 
pattern of I with binary zeros up to the limit. The subscript applied to a BIT function 
selects bits from the maximum-length result of the conversion, rather than from the original 
operand, so BITS(1 TO 4) (1) may pick out padding instead of data. 

The CHARACTER function can convert a bit string to its binary, octal, decimal, or hex- 
adecimal character representation. This is specified via a radix, which is written as a sub- 
script; for example; 
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would produce: 

‘ir 

*:5* 

•3r 

* 00011001 ' 

* 00011001 ' 

The BIT function can convert a character string back to a bit string. The radix is sup- 
pheu IK IV 4r. every character in the siring must be a digit in the valid range lor the 
specified radix. BITSU-'HKX) CtJ'i BIT$l«X^TH‘i:'i is BINM010\ and 

BITSU*< BIN) ('12') would lesult in a runtime ern>r. Note that comci>lonr. N*tween character 
and bn do not depend on the codes used to represent numerals within character strings. 

Another function. SUBBIT. allows any data type to be referenced, assigned, and sub- 
scripted li.^ (f it were u bit .v/rmg. SUBBIT obtains the internal representation of a variable 
with no modifications at all. Since these representations of IIAL^S data type., vary fitmi 
con.puter to computer, programs which use SUBBIT can not be machine-independent. 

The SUBBIT function is used in the coi.le below to con\ert a character string containing 
decimal digits to the packed decimal form discussed earlier. Tliis i\>utme assumes that the 
digits are represented in the l-BCDIC character code, lii this code (which is not used initil 
implementations.) the decimal digits 0 are represented by the binary codes llbX*K0' 
thr^nigh HV\ F^\ 

DlCLARi: C (TIARACTI R (4) INITIAU‘1 :34 ); 

m CLARi: B BIT(lb) INITiaim VOOOO ). 

DO bOR TI MPORARY I « I TO 4: 

B = B I i SUBBIT $l5 H) 8HC$I); 

F.ND; 

The expression SUBBIT$(5 TO 8)(C$I) selects bits five through eight of the binary rep- 
resentation of the Ith character of C. SUBBIT can also be used to a variable ;is if 

it were a bit string. The SUBBIT function is described further in the HAL/S language 
specification 

As a final example of bit strings, consider the following problem: A set of three redun- 
dant sensofs produce an ARRAY(3) BIT(lb). where each sensor contributes one array 
element containir.g four fields as shown below: 


nl n2 O validity bit 

I — — \ — — f n 


1 « « » » » I » » » I < » » t : 
1 2 3 4 s « 7 e 9 10 n 12 13 14 IS 16 
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The problem is to produce a fourth word in the same format which contains average values. 

The five bit fields will be treated as unsigned integral numbers: the validity bit in the average 
will be true if and only if all three input validity bits are true. 

The data can be declared as: 

DECLARE DATA ARRAY(3) BIT(I6), 

DECLARE AVERAGE BIT(I6); 

and the computation can be done in a single statement: 


i . 

n 4VIR4CC > exr (Si^< int(cir((o«ui n / ii II »it t sum xNTtGrPd data 1 

S S AT «:i TO 5 S AT »>A •:§ AT 

C ... 

n )l / SI II BIT tSUmiKTCBEmtOATJi) )< / SI II DATA AND DATA • DATA ; 

S A S AT t-A «:$ AT IX 1:1A {:XA S‘XA 


Note that the bits in the diagram were numbered from one to sixteen, starting at the left 
(or most significant bit). HAL/S always numbers bits in this way. regardless of any convene 
tions that may be used in hirdware documentation. 

The expression BITS(S AT #-4) (, . .) selects the last five bits of its operand. Since the 
length of the string ^turned by the BIT function is implementation dependent, the use of 
“#-4” instead of “1 2” or “28**, etc., is generally preferred. 

DATA$(*: I TO 5) is an ARRAY(3) BIT(5); this expression selects a bit partition from 
each array element. Thus, the INTEGER function is being presented with an array of “Nl** 
fields. 

This example also shows the use of the catenation operator on bit strings, which 
operates in the same way as on character strings. 

In this section, two nugor uses of bit strings have been presented. First, bit strings were 
used to collect booleans into a single word so that a complex boolean expression could be 
reduced to a simple comparison; the examples would work under any HAL/S implementa- 
tion. The other mgior use of bit strings is for manipulating quantities of less than one 
addressability atom; bit subscripts used to pick apart a word of memory. This allows explicit 
user control over the packing of data, and provides a facility for reformatting avionics I/O 
data. In this case, such considerations as the word size of the target machine and the internal 
representations of HAL/S data become important: hence, there is a degree of implementa- 
tion-dependence in the use of bit strings. 
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Exercbes 


1 3.1 A Given, 

DECLARE FLAGS BIT(I2); 

write expressions that test for each of the following conditions without using 
subscripts: 

a) bits 1 and 2 on, 

b) even numbered bits off, 

c) fust six bits off or last six on, 

d) bits 1.3, 5, II on, c. hers off, and 

e) bits 1 , 3, 5, 1 1 on, 2, 1 2 off. others irrelevant. 

13.1 B Fill in the following function so it agrees with the comment: 

FLIP: FUNCTION(B) BIT(12); 

DECLARE B BIT(12); 

C Return string of bits in reverse order, 

C i.e , FLIP(HEX*OOr) should be HEX‘800*. 

CLOSE FLIP; 

13. 1C Six bits can represent an integer value between zero and 63. If a table of 200>uch 
values were to be stored in a computer with a 24-bit word, it would be advantageous 
to pack four values per word. Write a procedure, 

SET.BITS: PROCEDURE(ENTRY, VALUE); 

which can be called to set one of the 200 6-bit entries to value, and a function, 

GET^^BITS: FUNCTION(ENTRY) INTEGER. 

which returns the value of one entry. Use the decla.-vtion: 

DECURE TABLE ARRAY(50) B1T(24); 

13. ID A common format for tloating point numbers consists of a sign bit, followed by 
seven exponent bits, and 24 mantissa bits. The value of the number is: 

A non-aero number is said to be **normatized** if the Hrit four bits of the mantissa 
are not all zero. Write a procedure which interprets its B1T(32) argument as a 
floating point number, and returns a Bfr(32) which has the same floating point 
value u the input, but is normalized. If the input mantisu is 0, then return true 
zero (i.e., all bits ■ OX When would sudi a routine be usefiil? 



- 


Name VariabltM !S‘tI 


A r 




13. IE Re-do the packed decimal to integer convenion example in the text using only one 
executable statement. 

13. IF Re^o the problem above without any arithmetic operators. Hint: Use character 
operations. 


13.2 NAME VARIABLES 

Name variables are pointers or addresses; they allow data to be referenced indirectly. 
Name variables are sometimes called *'pointers-to*\ since each name variable can point only 
at variables of a given data type. The type of the data pointed to is specified in the declare^ 
tion of the name variable itself. 

The most prevalent use of pointers in general is to pass the address of a data aggregate 
(such as MATRIX) to a subroutine. In HAL/S» this is done implicitly via ASSIGN param- 
etera; hence, the need for name variables in application programs is almost eliminated. In 
system programs, name variables may be used for efficiency in maintaining linked lists and 
queues, for buffer control and storage management, and for interfaces to non>HAL/S code 
or I/O hardware (e.g., a DMA channel). 

Another common use of name variables is to avoid a repeated structure subscript opera- 
tion. Suppose an inertial sensor produces data in the format indicated below: 

STRUCTURE IMU^DATA: 

1 DELTA^V ARRAY(3> INTEGER DOUBLE, 

1 ATTITUDE ARRAY(3) INTEGER, 

I STATUS B1T(16); 


There are three of these sensors: 

DFXURE IMU^INPT IMU^DATA-STRUCTURE(3); 

A low rate process is to select the best of the three copies of IMU data; the entire structure 
is to be read and the selected copy processed at a higher rate. One way* to pass the selection 
information between the processes is as a structure subscript. An integer, 

DECLARE BEST INTEGER; 

could be located in a compool visible to both processes, it would be assigned to 1, 2 or 3 at 
the low rate, and the high rate would have computations involving 1MU_1NPT$<BEST;). No 
name variables are used so far, but this solution will work. Individual components of the 
selected structure can be referenced as in: 


PITCH^ ANGLE - SCALAR(IMU^INPT.ATTITUDEgEST.j); 


^without utki| vtriablss 
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Every reference to the selected structure copy includes the subscripting operation. This 
conceptually involves adding the base address of the structure to the product of the struc- 
ture width and the value of BEST. Multiplication is relatively slow on most computers. It 
would generally be more efficient to compute the address of the BEST copy of IMU_1NPT 
only once and reference it directly through this saved address. Both "indexing** and **in- 
direction** are performed in a variety of ways on different computen, but when the index 
requires multiplication, in this case by the width of ten integen, indirection is quicker. This 
is not to say that it is always preferred; some of the risks of using name variables will be 
discussed later. 

Before giving the name variable solution, we note that the address can be computed and 
saved by adding an additional procedure: 
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CAU XTtA ASSI6NI IHU.XNrr H 

g£sn 

XTIIA: 

aaccioun ASsigNistar^inuM 

OfCLAtl aiST.ynU IKO.OATA-STBOCnmi 
MTCH^ANaif ■ SCAUai«ST_X«O.AT7ITUOl^i; 

ctosc xtva: 


Here the structure subscript is eliminated throughout the XTRA code block, since HAL/S 
ASSIGN parameters are a case of “call by reference*’ rather than “call by value”; the 
address of the argument is passed to the procedure. Name variables allow the same type of 
indirect reference without the overhead of calling an extra procedure. This is shown below: 
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o?cuRc et9T iMTectf: 

CAiL TBO ASSXCNIBEST); 

♦ * 

NAf1ElBf9T imi < NA^ECnU INPT U 
BEST; 

ci09t lOM.im; 


MI^RATt: 

task; 


PITCH.ANOLt « SCAlAIKBEST.XnU.ATTXnJDC U 

I 


C109E HX.RATE; 


This program is much the same as before. In particular, the HI RATii task » the same as 
when Bl ST IMU was an assign parameter, except that the XTRA procedure is gone. 


The name variable. BIST IMU. occurs three times m the program above. First is the 
declaration: a vanable is specifi»*d to be a name by placing the keyword NAMF before 
the data type The second is when it appears as an operand fo the NAMF function in the 
LOW RATF task In this context (and only in this context) the name is treated as a pointer. 
Here it is set to the address of the best copy of IMU INPT. Fhe only way to •*re-pi>int" the 
name variable BFST IMU is by executing a statement of the form 


NAMITBFST IMU) » NAMF( .); 


The only way to reference a name variable's pointer value at all is by use of the NAMF 
function, Normally. BF^"’ MU is of type IMU DATA STRUCTURF. U may be used any- 
where that a non-name v. .able of type IMU DATA-STRUCTURF is allowed. In a normal 
c«mtext. outside the name function, a name variable serves as an olios for data of some other 
type, hence the terminology NAMF instead of ••pointer". This is not at all the same as the 
use of a RFPLACF macro as in: 


RFPLACF BFST IMU BY ‘IMU INPTS (BFST.)). 

because the repbee macro results in the subscript operation p-*rformed every time. In the 
case of name variables, changes to the value of BFST only affect which data is referenced by 
BEST IMU when the 


NAMh(BFST IMU) - NAMFUMU INP1$ (BIST;)); 
name assignment is exiftuttJ. 
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Name variables may be of almost any Uata type, thou[0i the most useful is structure. Tlie 
types of data to which names cannot point are those which require more than a simple 
address to describe. These are the same types that are disallowed as assign parameters; ex- 
amples include bit partitions, matrix columns, etc 

A name variable can only refer to data of exactly the same type as specified in its decla- 
ration. This means that aU of the type attributes must matdi, including precision, arrayncss, 
structure hierarchy, and so on. The INITIAL attribute is an exception. The statement 
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oieuai •fiT.xnu utm xmmufUfieanM.XKFr mi 

SI 


initializes NAME(BEST_1MU). i.e., the pointer value. When a name variable is declared, 
the amount of storage reserved is just enough for one address. P.e INITIAL attribute 
spectHes the value to be idaced in th^ address word. The block of storage needed to contain 
an IMU^DATA-STRUCTURE is not allocated when the name is declared, thus the initial 
values for the structure pointed at must be spedfkd elsewhere. The statement shown causes 
the name variable BEST^IMU to point initially at the second copy of irotU^INFT. 

If the INITIAL attribute is not specified in a name deolaratton. the name initially poinu 
nowhere. A special value is used as a null address so that all uninitialized names have the 
same values. This null value is an address at which it is impossible to tocate data and can be 
written either as **NULL** or as ‘*NAME(NULl.r. It it possible to determine whether or not 
a name variable points anywhere, as shown below; 


t « 

n ir NsnfigcsT.tnui • nouhnmui thin 
H UtlTKSi *gttr iw Jt CMeUUM 


The basic NAME syntax has been shown in the context of one example; the fonns of 
declaring, initializing, re-pointing* and derefermdng (i.e.. accessing the data pointed at) have 
been shown. The main example used is machine4ndependent and at least somewhat applica- 
tion oriented. Nonethelesa. there arc pitfalb in the use of name variabbs. It ia difficult to 
find out what a name variable is pc4nting at by examining the code surroundii^ a leCerence 
to it. Data which is accessed via name variables b not fuBy tricked in the ciosa leference 
listing. Name variabks allow a single location to be referenced by several identifiers, possibly 
resulting in obscure skto^ffecu of assignments. Name variables also tend to bypam compiler 
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optimization, since they make it difficult to find a segment of code over which a particular 
variable is not modified. It is hard for either the programmer or the er mpiler to be certain 
what is being changed when name variables are assigned into. Thus, it »s frequently worth- 
whi: to use a ^ess efficient but less dangerous construct such structure subscripting. A 
common tameni is *T .bought I understood this cod^ until I saw inesc variables!**. 

In most application code, name variables sh Mild be ^ -d ni 'v possible gain in effi- 
ciency is generaliy outweighted by the loss in reliability s » sintainabUity*. Name vari- 
ables are provided in HAL/S primarily to allow the writing of .^stem software. 


Exctciws 

1 3.^ A Name any three HAL/S data items which cannot appear as an operand of the NAME 
pseudo-function. 

I3.2B Which of the followtng can be done with name variables: 

a) bypau HAL/S Koping rules. 

b) declare a structure itode with copincst. 

c) reference a single data item by several names or identifiers. 

d) reference absolute addresses, and 

e) change the type of data. 

13.3 LISTS AND QUEUES 

The HAL/S language does not provide syntax for dynamic storage allocation. Tempo- 
rary variables ard space for intermcdiale resuHt may be allocated and freed by the runtime 
code, but all dt. sions are made based cn thesia/lr block structure. DO . . . END grouping, 
etc. List processing languages can automatically release daU that is not on any list and 
allow the space so created to be used for new lists. HAL/S docs not provide this type of 
storage man^ement becauK it is not possible to guarantee that such systems wilt not run 
out of storage : this would be an unacceptable condition in fiight. 

Aside from storage management, the most valuable feature of lists is that entries can be 
deleted or inserted in the middle without copying data. This capabtUly is avail, bic in HAL/S 
through structures and name variables. 

Consider the timer queue, a concept which it central to many operating systems. Each 
entry in the queue contains a time and an action to be t»ken. The queue ia maintained in 
order of increasing time: the lop entry is loaded into an interval timer. T^ > could be coded 
in HAL/S as shown on the next page 


Klaaliisthtly tgeakiai. a gfwfrwu's isiahikty is iM gioMNiiy that n has ao hiiMfii Ni|s maaitaiii' 
ability h the probability that h cm be ckns4 or txtsadsd wttboat fsdadag rtkabibt) . 
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SmCTURC TOfi 

Txmt queue eiencNT 

l Tine SCALAR » 

1 ACTION INTeoet* 

1 AFreCTtO.RROCtSS NAne RHOCtSS.CONTROL'STRUCTURe* 
1 NEXT NAne TOe-STRUCTURe; 

OCCIARC TQ TQC-STRUCrjRCaOOi; 


Th^sc statements create a 100-copy structure, with four fiekts in cadi copy. Two fields 
are name variables; they are referenced in the usual manner, e.g,, 

TQ. AFFECTED PROCESS50 ;) 

is the third field of the first copy of TQ. H is of type PRCX'ESS CONTROL-STRUCTURE. 
Only the address Ls physically contained in TQ$(1 ;), but the structure elsewhere is accessed 
when the name variable is referenced in a normal context (i.e., outside of the NAME func- 
tion). The name variable next points to a TQE structure; the last field of TQE is the name 
of another TQE. We will explore the implications of this later. As it stands, all of the fields 
in TQ arc null. The queue could be initialized as shown below: 


N OCCIARC FRCe^O NANI UC-STROCTWt 1 

n OCJLARf ACTV^q NANI TOC- STRUCTURE 
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INITl Alice } 

♦ ♦ 

NANItFRCC.O) NANCm )i 
i: 

00 FOR TCNPORART N > 1 TO fTt 
♦ ♦ 

HANCm.NCXT 1 • HANCITR 1} 
Nl NUI 
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Now the cturiest tn the queue are tiei) together with pinnters, as shown Mow. 




t he structure c;>p> mimben ate sitown in the itiagranu but each field can now be referenced 
without using a copy number, as induated in the following table. 


Referenced Data 


IHiinted To Bv 


TQ$(h> 

TOSt.^;) 

TCTIMFSC;) 


FKl r Q 
FRFF CNFXT 
FRI F C.NKXTNFNT 
FRFF ONFXTTIMF 


Since I'RFF Q.NtXT ts the name of a TQF structure, it abo has a NFXT field. This Held 
points at the third entry in the fiee queue, which u/ tht momr»ff is also the thirti copy of 
W 

Hte pitKYdure below creates an entr>' in »hc active queue by removing it from the fiee 
queue and inserting it at the appn>pr.atc point in AC'TV Q based on the time Held . 

n ftMwiuf » .. 

n wrocrpi’^nMHtN. woi. rtecwnn; 
n etcL^tr whin sc4i4». 

n UNAT iHlltUi. 

fi fvoTNAht NA)'» raociss coNttoi-suKen^r; 

n orctat mw N»m m smen^ti 

C THI rOlUHOKtt HAM! VAStAtil IS UStf» ilHt A IHOe 
C VAttAlUr IN A StAKCM 

H DIClA»t IN? NAMt 

c ir NO ran iNitT ihin an tasoa 

I • 

« tf NANtirttt.ai • Nuu nuN 

N ■tnwNt 




U-IS System Frognmmtng Auis 


ftsi use 10 P ruic ent»v roi» nim active q rieneNT 


NfHeiHSUt s MAKICrpeC^QI} 

tcmve NiH ewTPT rnw epci.o 


HAmiFPCe.Q) * MAnCtFBee.Q.MIKTll 

PUT XNTO INTO NCU (MTRT 

NCU TIME s UNCm 
NEW. ACTION * WHAT; 

* « 

HAt*EtNEU.AfFECTC0.PP0CES5» « NAnttrOOCNAnEU 

NON XUSCRT NEH ENTPY IN APPPQPfflATC POINT OF ACTV QUEUE 
eiTHEP PEFCPE PIPST. 

EE TWEEN ENT AfO ENT. NEXT FOP SOTtC EMT 
OP AT ENL or QUEUE 

IF NtU,TINt < ACTV_O.TI«l TNEH 

do: 


NAHEOIEU.NEXT) » HANEtACrV 0)i 


/• PUT FIP3T#/ 


NANEfACrv^Ql « NAf1C«NEMi; 

peturn; 

EYO; 


NMtEttMT) • NAmUCTV.QU 


/•STAPT AT TOP»/ 


DO UNTU NANEttm.ntXT) x NAnEfNUlDi 


/• SEAPCM Q»/ 


HAnE(ENT) X NANEIACTV.Q); 

2F ENT. NEXT. TINE > MEN. TINE THEN 
do; 


>^*STAPT AT TOP*/ 


NAmiNEU.NEXT) * NATtE; ENT .NEXT)) 


MAHfrENT.NEXTI » NAnftMEM); 
PETUPHt 


/• NIH IMTPT INSEPTEO 


NAME* ENT) x NAME f ENT. NEXT K 
END; 


/• TPT NEXT ENTPV*/ 


AT THIS POINT . TNt UNOlf Q MAS StAPCHEO UNSUCCESSFULU • 
SO ADO NEH TO THE END 


NANEIENT.NfXTI * NANEfNENU 


NANCtNEH.NtXTI • NULU 
ClOSt INQUEUtt 
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lliu procedure can insert an entry in the middle of the queue without pliysically moving 
subsequent entries down, since the sequence information is encoded in the links (name 
variaMest rather than the position m memory (the copy number). After 

CALL ENQUEUEllO. 1. NULL); 

K executed, the queue looks like' 



If the next calls are 

C\LL ENOUEUECO. I. NULL); 
CALL ENQUEUEU5. I. NULL); 

the queue looks like. 



Now.ACTV QisTOSU;), 

ACTV Q.NFXl is TQS(3 ;), and 
ACTV Q.NEXT.NEXTisTQ$(2;V 
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Thus when viewed as a list structure, the elements of ACTV Q are sorted by increasing 
TIMK. even though 

TQ.TlMtC.) > TQ.riMl $(3.K 

This queue could be used in implementing the llAL/S real time statements, fhe t ode 
below illustrates how the timer queue might be used. Tire CALL SFT CLOCK and WAIT 
I OR event statements are intended to load the value ACTV Q.TIMK into an interval tuner, 
and wait for the interrupt. Hiis would have to be done via assembly language or *«-macros. 
"Percent" macros are implementationHlependent. They allow a /»res/e/mc*</ sequence of 
machine instructions to be inserted in a HAl S program. Mon? detail is given in each Cser s 
Manual. 
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OCClAai CIXK,.1NTIBRUPT EVENT; 
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DICURC TthP NAttt TQI-STRUCTUHe; 
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00 NHUE taut; 

M 

CALL SlT^ClOCKlACTV^Q.TIMt) ASSIGN! ClOCR.XNTEmnJt>T T. 

H 

WAIT req ciock^inuwupt; 
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00 CASE ACT V_Q. action; 
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CALL RtCtCLEUCTV^Q.ArriCTlO.eROClSSl; 
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CALL CANCEL^RROCt ACTV^Q. Af FECTEO^PROCESSl ; 
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CALL READY! ACTV^Q. APPICTED.PRQCESS 1 ; 

E 
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CALL SCNEDULE^ATI ACTV Q.APPECTED PROCtSSH 
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1 /«• ETC •/ 

H 

end; 

C 

NON RtnOVE TQE PRON ACTIVE ChAXN 

E 

♦ ♦ 

n 

NAHCITENR) ■ NANEIACTV.RU 

i 

• ♦ 

n 

NAHEfACTV.qi • NANI! ACTV.R. NEXT It 

i 

♦ * 

n 

NAne!TlNR.NEXTI > NANClPREC^QU 

i 

♦ ♦ 

H 

NAHEiPRlE.QI • NANE!Tln!»». 

n 

t>R); 

H 

nosEi 

H 
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PROCfOURtlXl; 
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DECLARE X fHOCESS.CQNTROL-STRUCTURE ; 
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CLOSE; 

H 

CANCEL^RROCt 
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RROCtOURt!X); 
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DECLARE X RftOCISS.CONTROL-STRUCTUREt 
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I 

With the process INT HANDLItR running, ami appropriate routines to recycle, cancel, ami | 

otherwise change process states. HNQUli UF. could be called as a result of several MAL/S | 

statements. **WAIT .5 executed by some process X might be translated to: ^ 

CALL I NOUl UEtRUNTIMK + .5, NAME(X));. i 

CALL STALL(NAMHX)): /*enter wait state*/ ' 

Here we are assuming that X is a PROCESS CONTROL-STRUCTURE. Such a structure 
might consist of: 
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STRXTWe PR0CE5S.C0NTP0LS 
1 SAVC.APEA RIGID. 

£ riXCO REGS ARRAYtlG) BlTlSEt. 
t FLOAT REGS ARRAY(O) SCALAR DOUBLE. 
z OTHER Bins:). 

I PPICPITIE INTEGER. 

1 STATUS INTEGER. 

I next name PROCESS.CONTROL-STRUCTURE, 

I ust name process .control-structure; 


where the node, SAVE AREA is machine dependent. This is a double linked list: each 
entry has both forward and backward pointers. To see how this is useful, suppose that there 
art three queues containing process contnd blocks (PCBs). FREEPC will be the anchor 
(simple name variable pointing at the first element of) of a queue of unused PCBs, 
READYK' will be the anchor of a queue of PCBs representing ready processes, (sorted by 
priority), and STALLED will be a queue representing Nocked processes (c.g., those in the 
wait slate). One of these queues is diagrammed on the next page. All three have the same 
form. The STALL routine that was called above might simply remove the indicated pn^cess 
from the READYPC queue and add it to the STALLED queue. The argument to STALL 
the address of the PCB to be removed from the READYK". It could be written as: 
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DECLARE REAOY_PC NAME PROCESS.CONTROL-STRUCTURf J 
DECLARE STALLED NAME PROCESS.CONTROL-STRUCTUREi 
DECLARE FREEPC NAME PROCESS.CONTROL-STRUCTURE ; 


STALL* 

PROCEDURE ASSIGN! PCB M 

OECLAPE PCB PROCESS.CONTROL-STRUCTURE ; 

REMOVE FROM READY QUEUE 
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C ♦ ♦ 

M NAMEtPCB, LAST. NEXT) = NAME! PCB. NEXT ) 1 

E 4 4 

H NAn(PCB. NEXT. LAST) a NAttE^PCB.lAST); 

C ADD TO STALLED G'JEUE AT THE BEGINNING 

C ♦ ♦ 

M NANEiPCB.KEXT^ s NAME( FREEPC ) ; 

e ♦ * 

H NAnEtFPESPC) a NAMEiPCB); 

M CLOSE stall; 

M CLOSE LA5T.EXAMPLE i 


The reason a double Unked list is needed is (hat STALL receives the address of a PCB in the 
middle of a chain. 



To remove it. the links of both neighbors must be changed. A singly linked list would suf- 
fice if It was always searched starting from RKADY'PC. 

In this section, we have sketched portions of one possible implementation of the MAL/S 
real time statements. ITtis design does not necessarily correspond to any actual operating 
system. The point of this section is to give a degree of familiarity with sophisticated uses of 
name variables, and to illustrate that large portions of "system programs*' can be written m 
HAL/S. 

This system presented is not at all complete. A routine is needed to make a process 
ready. It could be essentially the same as the F.NQUliUV. routine shown earlier. The routine 
that readies a cyclic process when the timer goes otT should put a new entry in the queue for 
the next cycle. Also, some low-level control code is needed to dispatch the highest priority 
ready process. This process is always the one that corresponds lo RtADYK', since the 
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ready queue is sorted, the top routine is always the one to receive control. However, there is 
no HAL/S syntax for branching to a program or for toading/storing specific machine rcgis- 
tets. At some level, assembly language has to be used, though HAL/S does allow certain 
canned machine-instruction sequences to be generated via macros. These macros make 
machine dependencies highly visible in the listing. If the 'r^acros defined for a particular 
implementation are not sufficient, assembly language comsubs can fill the gap. 

Name variables, percent macros, bit strings, EQUATE EXTERNAL*, and the ability to 
call assembly language routines all contribute to making HAL/S suitable for systems pro- 
gramming. Use of these features in application programming is discouraged; nonetheless, 
some safety is provided bv the type checking rules (as applied to name variables and bit 
strings) and other safeguards. Even in the system-language portion of HAL/S. many forms 
of bad programming practice are precluded by compiler restrictions. These features are 
designed so that reliable, readable and efficient programming is still encouraged even though 
it cannot be as thoroughly enforced when the system programming features are used. 


Exercises 


1 3. 3 A Declare and initialize a structure. CIRCLE, such that the following relation is true; 
NAME(CIRCLE.NEXT) = NAME(CIRCLE). 

13.3B Change the declaration of the timer queue so that each element (TQE) is the head of 
an arbitrary-length list of action-affected process pairs all to be done at the same 
time, as illustrated. 
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*See appropriate Uiei'i Manual for detaUi. 
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C'hangc the I NQUI HI routine to cither aiM the new element to the end of an 
existirij! list, if there is already one. or more aetion> at that time, or insert a new list 
cv>nsistmji of a header and t!ic new item. 

13.M' As wntten in the text, the procedure STALL may tad with some inputs. When will 
this haptvn” Modify the pmcediire to remove this problem. 


End of Chapter Probteim 

\}\ Write a procedure which will insert a PRfX'l SS CONFROt SI RUCTURL m the 
Rl-ADY K' queue (both defined as in Section 13.3) after all entries having an equal 
or higher PRIORITY and before all entries that are lower. Remember to maintain 
both forward and backward links. 

I3B Write a program which wilt lead in two hexadecimal luimberi (of up to six digits) 
separated by either a plus or minus sign, and print their sum or difference in both 
decimal and hexadecimal. 
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14.0 FIXED POINT 

14.1 INTRODUCTION 

HAL/S provides a scaled fixed point facility via the FIXED data ty|>e. It is expected that 
the FIXED data type will mainly be used for computeis which do not support SCALARs. 
This chapter explains how fixed point computations are programmed in HAL/S. It assumes 
the reader is familiar with fixed point concepts. 

FIXED variables are declared os in: 

DECLARE R FIXED C-5; 

A FIXED variable represents an engineering value in terms of a stored fraction times a de- 
clared scale factor. In this example we have: 

r * R X 

where R is the fraction stored in vanable r, and the scale factor is 2 mised to the fifth power 
(specified by Since R must always be a fractiori. r can represent values in the range 
(-^32. 32), i.e.. (- 2^. 2^). It is the responsibility of the programmer to select a scale factor 
brger than the maximum magnitude of values to be represented by each FIXED variable so 
that the stored value is always a fraction. 

The HAL/S approach to fixed point contributes to program portability and program 
correctness. In the first place, a program employing FIXED computations does not need 
any modification in order to be compiled for a different target computer. More importantly, 
the only changes in the behavior of the program concern the precision of the values com- 
puted. On computers with different word sizes, the number of bits employed in representing 
FIXED values (i.e.. the fraction) will differ. However, the difference only affects the num- 
ber of binary digits of precision. Therefore, computations on the shorter word-length 
machine will be less precise than those performed on a longer word-length machine, but the 
values produced will be very similar. 

As for program correctnev, HAL/S compilers enforoe several language rules which 
eliminate the common errors which can arise in the use of FIXED data types. One rule is 
that the source and target of an assignment statement must have the same scale factor. A 
program which disobeys this rule will obviously produce spurious results. The important 
point is that unlike assemblers, IIAL/S compilers will catch such errors during compilation. 
Another rule is that scale factor equality is required for operands of addition and subtrac- 
tion. and between arguments and formal parameten of subroutines. This rule's motivation it 
the same as for the first rule. 

In a fractional repnrsentation Jslng a finite number of bits, increasing the number of 
leading binary zeros decreases the number of meaningfu! binary digits and thereby decreases 
the precision. However, the likelihood of overflow it decreased when the number of leading 
zeros is increased. Making a successful tradeoff between these two potUiont requires an 
understanding of the abatiict oomputalkNi being performed. The programmer - not a com- 
piler - knows best how to make thb decision. Furthermore, it it often necessary for the 
programmer to a ntrol exactly the rescaling to be performed, which is difficult in a context 
of automatic retcaiing. 


a 
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For tytese reasons. HAL/S does not automatically rescale FIXED quantities, but rather 
provides a rescaling facility so the programmer can exercise necessary control. 

14.2 SCALING 

Scaling can be performed on literals and expressions with the scaling operator 
*‘(^'<exp>** m order to change their fraction and scale factor while preserving their abstract 
values. The expression: 

.V14159,„5 

causes the value of pi to be scaled by 2^: i.c. the stored fraction of pi » 3 14159/2^. Note 
that 


3.14!5«>s3.l4l5‘)/:^ x 2- 

fraction scale factor 

Applying <exp>" to a FIXED expression has the effect of multiplying the original scale 
factor by (i.e., adding <exp> to the exponent of 2). and dividing the fraction by 

^<exp>. Literals without explicit scaling are considered to have a scale factor of 2^ * I , and 
must have absolute values of less than 1. 

Scaling can be employed in order to satisfy the scale factor rule for assignment, as in: 

R - 3.MI5V5; 

where R has been declared with scale factor 2^. Other instances of scale factor mismatch 
can be adjusted through the use of scaling. 

The scaling operator can also be employed in FIXED computations for maintaining 
maximum precision and preventing overflow. Recall that precision is increased when the 
fraction has fewer leading binary zeros, since then more significant bits can be held in a 
storage unit. This may be accomplished by reducing the scale factor. For example, to reduce 
the scale factor of H by 2^. i.e. 

r * R X 2^ • ^ 

or R<a >^3 * R x 2^ - (8 R> 

The fraction R is increased by a factor of 8. thereby reducing the number of leading zeros. 

On the other hand, overflow can be avoided by increasing the number of leading zeros. 
For irstance. if r • 24 so that R » .75, then coding; 

2R 

will cauK overflow. If the scaling is changed to reduce the size of the fraction: 

R(a I • . 75/2 « .375 (where the scale factor is now 2^) 
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then the expression 2 R^i will produce .75. thereby preventini overflow. The abstract 
value is correct, l.e.. .75 x 2^. and the fraction has mafnitude less than I. Successful maxi- 
mization of precision, while avoiding overflow, requires the programmer to fully understand 
the ranges of the abstract quantities being combined. 

Note that another method of increasing precision is to explicitly specify **^DOUBLE** 
within expressions, though usually at increased execution and storage costs. See Section 3.4 
for a description of the precision attributes. 

14.3 EXPRESSIONS 

The arithmetic operators have their usual meanings when applied to FIXED expressions. 
There are a few additional rules which specify the treatment of scale factors. 

•»>, ~ Addition and subtraction, llie operands are both FIXED data types 

and must have identical scale factors. The result has the same scale 
factor as the operands. 

Multiplication Indicated by an adjacency. The operands are both FIXED data types 
or one is INTEGER. An INTEGER operand indicates repeated addi- 
tion (as specified above) of the FIXED operand. OtherwiK. the 
two FIXED data types are multiplied, and the resulting Kak factor is 
the product of the operands' scale factors. 

Division. The operands are both FIXED or the right operand is 
INTEGER. The left operand is divided by the right operand, and the 
resulting scak factor is that of the left dividend divided by that of the 
right. For division by an INTEGER, the result's scale factor is that of 
the FIXED operand. 

** Exponentiation. The kfl operand is FIXED and the right operand is 

a positive INTEGER known at compik-time. Exponentiation indicates 
repeated multiplication of the FIXED operand by itself, using the 
multtplication ruks specified above. 

Forexampk,kt: 

a ■ b c ♦ d 

be a computation to be performed, where the scak facton of the variables are chosen for 
illustration purposes. The following program fragment shows how this can be coded: 

DECLARE FIXED, 

A <f2, B ^3. C ^4, D (?'5; 

A ■ (B ♦ D^_j; 

/• A - B X C * 2* ♦ D K 2^ •/ 

There is a potential for losing precision in the computation "(B O** because the rest ! has at 
least five leading binary zeros, which are shifted out by *'^'-5". However, If the computer 
normally forms a doubk precision result as the product of single precision operands, then 
the compiler will perform the rescaling on the dtxtbk predskm value htfort converting to 



14 4 flXfD^oint 


cingle prtcHion. Thus maximum precision is retain<*>( at no additional cost. In the absence of 
such hardware support, the programmer can preserve precision with 

A * (B C(-i'0OUBLEV 5 * 3 - 

Clieck the appropriate User's Manual for a description of how your particular MAL/S com- 
piler treats this case. 

Notice that the subscript notation for scaling operations contributes to the readability 
of FIXED expressions. The Si'aling operations do not so clutter the appearance of a compu- 
tation so its abstract meaning is easily seen. 

Readability and modifiability can he enhanced by using named constants instead of 
literals for K'aling as in the following example: 

DECLARE INTEGER. 

PS CONSTANTC), 

RSCONSTANTI5); 

C PI STAt F AND R STAt F 

DECLARE PI FIXED (-PS CONSTANT 

DECLARE FIXED. 

R C«RS. 

AREA (S^CPS + : RS). 

CIRCUM (J?<PS + RS); 

AREA* PI R**:, 

CIRCUM • : PI R; 


14.4 SHAPING FUNCTIONS 

As with the other arithmetic data types, the FIXED data type has a shaping function, 
which is named **FIXED*\ A use of this function includes a seating specifier (in the usual 
*‘^<exp>** subscript notatioi;) to tell how the value being converted to a FIXED is to be 
scaled. For example, if J is an INTEGER with \alue in. then the expression 

FIXEDcaj 0 ) 

has the FIXED value 

16 /:* * .5 

Thus, the icaltRg specifier acts hke the scaling operator. A legal usage of this expression 
might be an aasignmenl to tire FIXED variable R from earlier examples: 

R » FixEivs oy- 

Naturally, the FIXED shaping functioti can aho be applied to scalars. The scaling spec*- 
Her miMl be large enough so that the converted value is truly a fraction. 
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When converting from a F!aED to some other arithmetic data type, a scJing ipedfkr 
» also employed. This is used to satisfy the requirement that the scale factor of the result 
of the convei'sion be I (i.e., 2^. For instance, one would write: 

J - INTEGER^_5 (R); 

This has the effect of removing the scaling from the abstract value repreKnted by R. (Note 
that the expression: 

*«-S 

has a similar intent of attempting to set rhe Kale factor to I, but does not work becauK 
overflow will probity occur.) The other shaping functions SCALAR, VECTOR, and 
MATRIX also have a Kaling specifier when applied to FIXED data types. 


14.5 VECTORF AND MATRIXF 

The data types VECTORF and MATRIXF are similar to VECTOR and MATRIX, but 
they have FIXED data types instead of SCALARs as components. Many of the operations 
applicable to VECTORS and MATRIXs are available for their FIXED analogs VPCTORF 
and MATRIXF are declared and used with scaling, which applies to the^ FlXfD com- 
ponents. 

DECLARE POSITION VECTORF ^10 
INITIAL (1(X).(^I0, 

Further details on thcK data types can be found in the HAL/S Language SpeciHcation. 


14.6 SCAUNG REVISITED 

The construct **^exp>** specifies Kale factors which are powers of 2 Such Kale fac- 
tors are advantageous becauK on most machir.es reKaling can be accomplished by shifting 
the fraction right by <exp> bits (left if <exp> is negative), and by adding <exp> to the 
exponent of the scale factors, instead of the move expensive muHtplication or dhision. 

Occasionally it is more natural to use some other scale factor, e.g., pi. This is achieved 
via **64i<exp>**. In this case <exp> itself b treated aa the Kale factor Th n **6^e** is a 
shorthand for 

DECLARE ANGLE FIXED 6^P1 
INITIAL O O^pi); 

C I RADUN SCALED BY PI. 

. . . rOUKNGlM) . . . 

C TRIGOiiOMETRIC FUNCTIONS EXPECT FIXEDS SCALED BY PI. 

In thia example, angle can be represented by: 

tmgk m ancle x pi 
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Notice that scaling by other than powers of two implies that nctual multiplications and 
divisions are performed. 

It is even possible to have FIXED data types without any scaling. 

DECLARE BE_CAREFUL FIXED INITIAL (0.15); 

If an operation has an operand with unspecified scaling, then the resuit also has unspeci- 
fied scaling. Scale factor matching is not required when one of the expressions has an un- 
specified scale factor. This m'lde of FIXED usage is rarely desirable because the compiler 
cannot provide checking and scale factor support. Rather, it becomes the programmer’s 
responsibility to perform the scale factor manipulations by hand. 

One reason for employing FIXED data types without scale factors is in the simulation 
of floating point. The built-in functions NORMALIZE and NORMCOUNT can be used in 
such an application to shift out leading zeros, and count the number of positions shifted, 
respectively. 


End of Chapter Problems 

DECLARE FIXED, 

A(?7,B@3,C^>2,D(^4; 

1 4A Fill in the correct scalings in 

A = ((B 0^7 + D)^7 ; 

14B Why is 

B = 2 Cfo,] ; 

Safer than 

B = (2 C)(®j ; 
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ARITHMETIC FUNCTIONS 

• Arguments may be integer or scalar. 

• The data type of the result matches the argument type unles> otherwise 
noted. 

• Arrayed arguments generate multiple invocations of a function, one for 
each element in the array. Wlieii two or more arguments are arrayed, 
their array ness must match.* 

Name <Arguments(s)> 

Comments 

ABS(X) 

Absolute value IX 1. 

a;ii.iN(;(X) 

Smallest integer > X. 
CHILINC.( -3.4) returns 

DIV(X,Y) 

Integer division X/Y; v^here scalar arguments are 
rounded to integers. This construct is the only way to 
do integer division in HAL. 

DIV(5,J) returns 2 . 

Note: Where X, Y. Z jre integers X = 5. Y = 2. The 
statement Z = X/Y results in two integer to scalar con- 
versions and a scalai divide. Finally, the result is con- 
verted to an integer type In this case Z = X/Y sets Z 
to 3. 

FLOOR(X) 

Largest integer < X. 
FLOOR( 3.4) returns -4. 

MII)VAUX,Y,Z) 

The value of the argument which is algebraically be- 
tween the other two. If two or more arguments have the 
•f-mie value, that value is returned. 

MIDVALl .4, 6, 3.5) returns -.4. 

MOIXX.Y) 

X MOD Y tniodulus). The result is scalar unless both 
arguments are integers. 

MOD(5,3^ returns 2. 

MOD(5, 3) returns 2. 

MOD( - 5.3) returns 1. 

MOD( 5, 3) returns 1. 

MOD( 5,2.1) returns 1.3. 


*For a dikcuuion of arrayness, tee Section 6.2. 
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ARITHMETIC FUNCTIONS (CONT'D.I 


Name <Argument(s» 

Comments 

ODD(X) 

Result IS BOOLFAN. True if X is odd, false if X is even. 

IF(ODDtX)) 

THFN . . . 

Note. Scalar arttiiincnts are rounded to integer. 

RFMAINDFR(X.Y) 

Signed remainder of integer division X/Y. 

RHMAINDF:R( 5J) returns 2. 
RHMAINDKR(5. returns 2. 

RKMAJNERl 5. 3) returns 2. 

Note. Scalar arguments are rounded to integers. 

ROUNrnX) 

Nearest integral value to X, essentially the same as H/ 
scalar to integer conversion. 

SIGN(X) 

Returns an integer. if X > 0: 

1 ifX<(). 

SIGNUM(X) 

i 

Returns an integer: +1 if X > 0; 

0 if X = 0; 

1 ifX<0 

no casf(Sk;num(X)+2), 

TRUNCATF(X) 

Stnp off fractional part of the scalar (X). 

TRUNCATFl 3. 4t returns 3. 
TRUNCATF(7.8)returns 7. 
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ALGEBRAIC FUNCTIONS 

• Arguments may be integer or scalar types - conversion to scalar occurs 
with integer arguments. 

• Result type is always scalar 

• Arrayed arguments cause multiple invocations of the function, one per 
each array element. 

• Angular values are supplied or delivered in radians.* 

• Arguments that are outside the domain specified in the comments result 
in HAL/S runtime errors, (see Chapter 10). 


Name <Argument(s)> 

Comments 

ARCCOS(X) 

IXK 1. 

ARCCOSH(X) 

X > 1, 

ARCSIN(X) 

IXK 1. 

ARCSINH(X) 


ARCTAN2(X,Y) 

Returns B = tan"' (X/Y) where the proper quadrant for 
~ir < 6 < ff is determined from the signs of X and Y. 
Proper quadrant results if 

V ° K 1 K > 0 

Y = K cosd J 

ARCTAN(X) 

Principle value only; see above. 

ARCTANH(X) 

IXK 1. 

COS(X) 


COSH(X) 


EXP(X) 

eX. 

LOG(X) 

loggX, X>0. 

SIN(X) 



*One radian equals S7.295779S131 degrees, so that 
f radians equals 180 degrees; 
n/2 radians equals 90 degrees. 


- — r' 
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[ ALGEBRAIC FUNCTIONS (CONI’ D. ) 

Name < Argument! s» 

Comments 

SINH(X) 


SQRT(X) 

y/T ,X>0. 

FAN(X) 


TANH(X) 




VECTOR-MATRIX FUNCTIONS 

• Arguments are vector or matrix types as indicated 

• Result types are as implied by mathematical operation 

• Arrayed arguments cause multiple invocations of the function, one for each 
array element 

Name. Arguments 

Comments 

ABVAMo) 

Length of vector ot 

DET(a) 

Determinant of square matrix or 

INVERSE(a) 

Inverse of nonsingular square matrix a 

TRACE(a) 

Sum of diagonal elements of square matrix or 

TRANSPOSE(a) 

Transpose of matrix a 

UNIT(a) 

Unit vector in same direction as vector or 






• The type of the result matches the type of the argument ai.d is 
unarrayed. 


Name <Argumcnt(s)> 

Comments 

MAX(X) 

Maximum of all elements of X. 

MIN(X> 

Minimum of all clcmcnl> of X. 

PROD(X) 

Product of all elements of X. 

SUM(X) 

Sum of all elements of X. 
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BIT FUNCTIONS 

• HAL/S provides AND. OR. and NOT operators for bit operands. XOR 
(exclusive OR) is available as a built-in function. 

Name <Affttinent(s)> 

Result Type 

Comments 

XOR(X.Y) 

BIT 

Exclusive OR. where X and Y are bit 
strings. The length of the result is the 
length of the longer argument. The shorcer 
argument is padded on the left with zeros. 














• The first argument in each of the functions below is a character string. If 
a scalar or integer is specified where a character string is expected, a con- 
version to character type is performed. 


Name <Argument(s)> 

Result Type 

Comments 

INDEX(CI,C2) 

Integer 

C2 is a character string. If string C2 is con- 
tained within string Cl. an index which is 
the location of the first character of C2 in 
Cl is returned, otherwise, zero is returned. 

INDEX(*CHARACTER\ ACTER ) returns 
5. 

INDEXCALPHA’, ‘BETA*) returns 0. 

LENGTH(C) 

Integer 

Returns the current length of character 
string C. 

UUST(CI,n) 

Character 

n is integer type - the string Cl is ex- 
panded to length n by padding on the right 
with blanks. If n is less than the current 
length of Cl , an error is signaled and Cl is 
truncated to length n. 

RJUST(CI,n) 

Character 

n is integer type - the string Cl is ex- 
panded to length n by padding on the left 
with blanks. If n is less than the current 
length of Cl. an error is signaled and Cl is 
truncated to length n. 

TRIM(CI) 

Character 

Leading and trailing blanks are stripped 
from Cl. 
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MISCELLANEOUS FUNCTIONS 

• Arguments are as indicated; if none are indicated the function has no 
arguments. 

• Result type is as indicated. 

Name <Argumfnlts)> 

Result Type 

Comments 

CLOCKTIMF 

Scalar 

. . 

Elapsed time since midnight (format is im- 
plementation dependent). See Chapter 12. 

DATE 

Integer 

. . 

Returns date (implementation dependent 
format). 

ERRCiRP 

Integer 

Returns group number of last error de- 
tected. or zero if no error was detected. See 
Chapter 10. 

ERRNUM 

Integer 

Returns numbvr of last error detected, or 
zero if no error was detected. See Chapter 
to. 

NEXTIME 

«IabeI>) 

i 

Scalar 

<label> is the name of a program or task. 

The value returned is determined as 

follows: 

a) If the specified process was scheduled 
with the REPEAT EVERY option, and 
has begun at least one cycle of execu- 
tion. then the value is the time the next 
cycle will begin. 

b) If the specified process was scheduled 
with the IN or AT phrase, and has not 
yet begun execution, then the value is 
the time it will begin execution. 

c) Otherwise, the value is equal to the cur- 
rent lime (RUNTIME function). 

PRIO 

Integer 

Returns priority of process calling func- 
tion. 

RANDOM 

Scalar 

1 

Returns pseudo-random number frr/m rec- 
tangular distribution over range 0-1 * 


*Note that for any t>articular HAL profram complax which contaiiu rtfarancaa to RANDOM and/or 
RANDOMG* tht Mme aet of 'Random** numbm win ba laiuratad in aach axactaion. 




a 
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MISCELLANEOUS FUNCTIONS (CONTD.) 

Name < Argument! s)> 

Result Type 

Comments 

RANDOMG 

Scalar 

Returns pseudo random number from 
Gaussian disti mutton with a mean of zero, 
variance of one.* 

RUNTIME 

Scalar 

Time since the software began executing 
(imptementatioi; dependent format). See 
Chapter 1 

SHL(X.Y) 

Integer 

X shifted lef: Y bit positions. X and Y may 
PC scalar or integer, but scalars are con- 
verted to integer before shifting. This is an 
arithmetic (signed) shift. 

SHL(- 2,2) returns 8. 

SHR(X.Y) 

Integer 

X shifts right Y bit positions. As above, this 
is an arithmetic shift. 

SHR( -4,2) returns -1. 

SIZE(X) 

Integer 

One of the following must hold: 

- X is an unsuhscripted arrayed variable 
with a one-dimensional array specifica- 
tion - function returns length of array. 

X is an unsuhscripted major structure 
with a multiple copy speciftcation - 
function returns number of copies. 

- X is an unsuhscripted structure termi- 
nal with a one-dimensional array speci- 
fication - function returns length of 
array. 

Result is of integer type. 


*Note for any particular HAL program complex which contains references to RANDOM and/or 

RANDOMG, the same set of **random’* numbers wiU be generated in each execution. 
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Appendix S 

Although the main body of this manual has avoided references to specific compilers, 
there is considerable similarity in the compilers now available. In this appendix we will de> 
scribe additional software development support which is typically provided. 

The HAL/S compiler is not simply a language translator. All current implementations in- 
clude features not usually found in other common compilers, such as PL/I , FORTRAN, etc. 
These include special processing and annotation of the listings, facilities for restricting usage 
of variables or language features, and additional outputs for post-compilation tools. 

In addition to annotating identifiers and indenting as described in the text, the compiler 
adds several types of summary information to the listing. At the end of each procedure or 
function block, that block's interfaces are listed. The information presented includes lists of 
global variables referenced or modified, external procedures calVd, event variables modified, 
compool REPLACE macros used, and so forth. At the end of the listing a table of identifiers 
is printed, including the data type and a list of all statements which use the identifier. Some 
compilers produce a listing of annotated assembly language which corresponds to the 
machine code actually generated. This aids in debugging on flight hardware, although more 
sophisticated debugging supports is also provided. 

Two facilities provide for the establishment of managerial control over HAL/S usage. 
ACCESS rights allow restrictions to be placed on the modification of selected variables or 
on the usage of blocks. Since this can be done separately for each compilation unit, 
ACCESS rights provide managers with an important tool for controlling the interfaces be- 
tween modules. Another device is the SUBSETing capability, which provides the ability to 
restrict the usage of a user selected subset of HAL/S language features or built-in functions. 
This mechanism does not affect the code generated but merely flags by a warning message 
on the primary listing those statements violating the SUBSET. 

The efficiency and reliability of program complexes can be improved by use of a special- 
purpose link editor or binder. These programs (e.g., HALLINK) can reduce storage require- 
ment*. by generating the call tree beneath each program or task and allocating a temporary 
storage area (or stack) just large enough for the longest limb of the tree. If a compiler sys- 
:m includes an appropriate link editor, it may also add to software reliability; while the 
various HAL/S modules are being bound together, they can alsc^be checked for consistency. 
The template generation system (Chapter Eleven) passes information to the link step that, 
for instance, allows verification that every program used the same compool template. 

Another output of each compilation is a Simulation Data File or SPF. This is a random 
acceu data base containing attribute and cross reference information for variables and code 
blocks. Data concerning executable statements is also included, as well as global statistics 
found in the primary listing. It is this large database that allows for many post-compilation 
analysis tools, ranging from execution-time debuggers to HALSTAT, a statistics and analysis 
package. 
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Prcgrammen have many modes ot execution available to them in most implementations 
of HAL/S. Even running stand-alone (on a host computer) one can obtain detailed error 
diagnostics related directly to the HAL/S source by statement number and block name, and 
optionally obtain an end of run formatted dump of all variables. And if a program termi- 
nates abnormally, a full traceback. showing the flow of control from block to block, wilt be 
given. Another package allows one to request dumps and traces of variables while running in 
a batch environment. This package can also provide a detailed log of real-time transactions, 
showing the transitions from process to process. Moreover, certain implementations provide 
the capability of 'functional simulation,'* or FSIM, of another target computer, in this 
usage, the amount of memory used is approximated by allocating variables in the same faslt- 
ion as on the target machine. Also, the extent of CPU utilization is estimated for the target 
machine with a running accumulation of time maintained automatically. The FSIM facility 
is very useful in cases where the target machine is not commonly available or is difficult to 
use. One very valuable feature available under FSIM is the "proflle** capability; a listing can 
be generated which shows the numbci of times each HAL/S statement in the program com- 
plex was executed. The estimated total execution time for each statement, and other statis- 
ttes, allow the efficiency of programs written in HAL/S to be attacked at the point of 
greatest leverage. 


One host computer contains an interactive HAL/S debugger. This program uses informa- 
tion from the simulation data flies as well as "hooks" inserted in the machine code to allow 
debugging at the HAL/S level (i.e., without knowing any details of the underlying com- 
puter). Breakpoints can be set by statement number or label. For instance, "AT LOOP 3;" 
sets a breakpoint three HALjS statements after the label "LOOP**. Variables can be 
inspected and modified by their symbolic names; aU values are entered or presented m the 
stand jrd external format. Data aggregates may be subscripted or printed in entirety. Since 
the SDFs contain full type information, there is no need to debug in hexadecimal or octal, 
or to continually' specify display formats. Since HAL/S programs reference variables via 
scoping rules, this debugger provides a SCOPE command. This command has a block name 
as its argument: references to variables in subsequent commands are interpreted as they 
would be in the named block. A SCOPE command is automatically performed when a 
breakpoint is reached; thus commands at a breakpoint can reference any variable that is 
visible from the block in which the brtakpotnl was hit. The SDFs contain sufficient 
information to allow similar capabilities in a **croasHlebugger** to test actual flight code. 


The large amount of data contained in the compilers outputs, especiaPy the SDF's and 
the obieci modules, permits the development of many post-compilation analysis programs. 
Perhaps (he best known of these is the HALSTAT program, which is used to accumulate 
global data about a program complex. HALSTAT peiiflmns three maior functions: verifying 
the consistency of SDF*s, printing statistics for each module, and giving a glo:>al dictionary 
of variables. SDF*s are consistent if all variables shared by processes are in agreement with 
respect to such factors as data type, size, location, and so on. Variables arc also checked on 
a ^bal basis to insure that none are referenced that have no 'ver been asaigmiJ; if (his situ- 
ation occurs a warning message will be given. Multitudinous statistics are printed for each 
HAL module in the program complex, giving the name of the module and the date of com- 
pilation. size statistic anF the modules* pattern UMh in terms of HAL/S blocks incorpo- 
rated and location of code sections. The global symbcl directory (GSD) portion of HAL- 
STAT is a listing of every variable used In every rnodule of the program complex, includhig 
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both compool and local variables. It shows not only variable attributes and locations, but 
also the cross reference data for each variable across all mo luU:i in which it is used The 
cross reference shows both the HAL/S statements, by number, where an item is used, and 
also the way in which it is used, e.g. RFFHRKNCFO, ASSIGNFD. SUBSC RIPT, etc. 

Additional programs have been developed to meet the needs of jpectftc mstalialtons. 
One program provides a complete disasH^mhly listing of a HAL/S toad module, which shows 
dearly the relationships between the machine code instructions and the HAL/S source. 
Since the typical program complex's load module incorporates code from both HAL/S mod- 
ules and assembly language modules < from the runtime library), a list showing both of these 
is essential to review the integrated system. Another program provides the above disassem- 
bly capability but limits it to user-specified machine instructions, a facility that is very use- 
ful in assessing the impact of instmclions that are not correctly implemented in a machine's 
hardware, or in determining the extent and nature of operating system interfaces. There is 
also a program which produces a list of all locations deemed to be invariant After executing 
the load module for a perioil of time, one can dump the contents of memory and see ./ 
these "never-changing" memory locations have indeed cKsnged. which would indicate a 
problem in the load module. Another program is used to compile, based upon programmer 
speciricalion of the data items desired, a list of all parameters that will lie patched. This list 
includes detailed information about each variable, such as type, si/e, and location, to allow 
it to be modified in the correct fashion. 

As more installations use HAL/S on an ever-growing number of target machines, the 
amount and diversity of the support software is certain to grow. The capabilities described 
here may and may not be present in a particular system, but like the HAl/S compiler itself, 
these utilities are written in a high order {.inguage. and as machine-indcpendently as possible. 
The functional simulation and post-ci»mpilation analysts tools have proved so valuable in the 
Space Shuttle program ti*at they may eventually become reijuired components of any 
HAL/S compiler system. 
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Apprndfai C: Ammtn to Exordwt 
Sottttioni 


») vi]id« Mie Miner 

b) vtUd, keyword 

c) invalid 

d) vatidjiteral 

c) valid, idenliner 
0 invalid 
f) valid, identifier 
h) valid»ke>word 
t) invalid 

j) vUid» keyword 

k) invalid 

l) valid, identifier 

m) valid, literal 

a) A Y+C Z 

b) (A+B)/C + D/(E+F) 

I ••(N~I)/(2**N-1) 
\ S ; X**2t3 
i (X l)**3 
0 IO**X*^Y 
t) (IO**X)**Y 
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2.2B 

a •*’ IS noi the multiplication operator in HAL/S. 

Correct expression M X+B. 
b| Incorrect opciator precedence. 

Correct expression. 2 (X+1). 

c) Multi p>’cjtion is represented by a blank between two operands. 

Conect opression; X**( 2.5 N). 

d) Two opcniloHi may not occur in succession. 

Correct expression- C**( 5). 

c) Spaces denoting multiplication of both numerator and denominator are missing. 
C'orr*'' t expression. A C7(B D) or (A C)/(B D). 

2..M 


DbCLARF SCALAR INITIAL(1L DELTA, Y DELTA: 
DECLARL TIME DELTA SC ALAR* CONSTANT! U; 

DEC LARE DELAY FACTOR SC ALAR CONSTANT! 5); 

DEC LARE SCALAR, TEMPI, TEMP2, TEMP3; 

DECLARE COUNT INTEGER INITIAL! U; 

DEC LARE POINT A VECTOR, 

DECLARE ORU,!N VECTOR C’ONSTANT(aO.O>: 

DEC LARE TRANSFORM MATRIX INITIAL! 1, 0,0.0, 1. 0,0,0, 1); 


2A 


rt roots: 

M POQGRAH; 

H DECLARE SCALAR. 

H A* B. C. ROOTl. R0OT2; 

n REAO(S) A. B. c: 

E 2 O.S 

H ROOT. = l-B ♦ (B ' ^ A C) ) / 2 A; 

E 2 0.5 

H RP0T2 s l-B - IB - A C) ) / 2 At 

:.t:itei6i rooti# root2i 

0 n CLOSE roots; 




. r 


* 

* 0 ^ 


% 




* 
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t 


Solutionis 


.VIA 

a I Integer, valuo is I. 

p : 4 

h) Matrix (.^ by value IS I ' } 5 

cl 2'vector, value is 

3.1B 



n than^mul: 
n pficGiAn; 

n OCCLARe n HATHIX CONSTANTI?, S. 7» 6> 5* 4, 3. 2. 1>« 
c • • 

H uffiTC<6i n TRANSPoseim: 
n Close TPAi^^nuu 


^ !(' 


a) (IH'OS {2 \))/2 


b) AKi lANlY/XI 


c) M (R / IHM / R IX1T) SINinil) MR/ PHI IXTl tX^SlPHI) 
il) AR(XX)S((M/R M A/N)/SQRrC M \ 4M**2 A**:/N*V)I 


e> L(K;(TAN(X/:+PI/4» 


v:a 


a) I, 7; 0. 




[!] 


f,< 0 .» 

U I 4 7J 


c\ Dl'CLARI- VI VI-tTOR(6» INI nAU0.l.:..»,4.5); 

DICIARI v: VI("roR((i) lNmAl(IO.IU:.l.7.l4.15>; 
nm Aki' M.” MATRIX!:,:) INITIAMS.6.7,8); 

OK’IARI' M.IS MATRIX(.).S) INITIAL(7,4.I. 2. 5,M,0, .7. ^.5.2. I. 4. 
7). 


* 
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3.2B 

This Is an example of how oveMpecifying a program may lead to inefficiency. Two 
answers are given here; the first follows the statement of the problem literally, while 
the second produces the same result in a different way. 


n 

COHP.OOTI 

n 

PROOItAm 

n 

oECLm vEcm* 

N 

oaXG^VEC XNZTXAUlf E. SI* 

H 

gE9ULT_Xi 

H 

OECUflE OKIg.fUT fUTiaX ZNITXAU1» t. S* 4» S» A» 7. 9i 9M 

t 

m m 

H 

AESULT^X • 0AX9.VEC . 0AZ8.IUT i 

9 

1 

t 

_ 

H 

A^iSOlT.X » 0AX6.VEC . OAia.HAT ; 

9 

t ».E 

e 

- 

H 

AE9UI.T.X « 0AI6.VCC . 0I»I6_HAT i 

9 

3 ViS 

E 


N 

MAZTEtA) AESULT.X; 

n 

CLOSE coha.oot; 



n 

COHA.OOTJ 

H 

PAOGAAHI 

n 

OECLAAE VECTOA. 

n 

OAZO^VCC XNXTZALtl. E* Sl> 

n 

AESULT.X; 

H 

OECLAAE OAZO.rUT HATAIX ZNZTZALtli E. 3, 4. 9. A, 7. 6* AM 

E 

- - « 

n 

AESULT.X m OAZO.VEC OAZO.HATj 

c 

- 

ft 

MAZTEIAI ACSULT.Xt 

n 

CLOSE comf.oot; 





, 
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3,2C 


WRITEK>) V4! will output the vector 


21 * 

22 

23 


The first WRITE(6> M22 will output the matrix 



0 I 2 

WRITE(6 ' M33 will output the matrix 7 8 9 

n 12 13 


The secom WRITE(6> M22 will output the matrix 



3.SA 


i) 

h < >. /, ♦♦ 

results scalar. 

ii) 

+, .Ok /, •• 

results scalar. 

iii) 

+, <>, A *• 

results scalar. 

iv) 

+, -, < > 

results integer; 


/. •• 

results scalar. 

V) 


results vector; 


<> 

result matrix; 


. 

f-esult scalar. 

Vi) 

<> 

result vector. 

vii) 

Ok / 

results vector. 

viii) 

o 

lesult vector. 

ix) 

+,-,<> 

n?sults matrix. 

X) 

Ok /. •• 

results matrix. 


3A 


n 

ANOLESt 

H 

PROGRAnt 

M 

C/ECURE tCTOR. 

n 

VI. vt; 

E 

- 

n 

READ(S) VU VEt 

c 

_ - — - 

H 

HRXTEUI ARCCOSUVl . VE) / (ABVAltVl) ABVAUVEnU 

H 

CLOSE ANSLESt 





* 




a) V4 = VECTORS4(M$(2.2), M$(3J). M$(4,4K MS(5,5)); 

b) M22 = MS(2 TO 3, 8 TO 9); 

c) M34 = M$(5 TO 7, 7 TO 10); 

d) VIO = M$(9,*); 
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s / 


Solutions 


4.IA 

a) Compound conditions like ’A < B < C’ are not recognized by HAL/S. 

b) The THEN clause of an IF. . .THEN. , .ELSE group may not be an IF statement. 


c) The expression following the ‘NOT* operator must be parenthesized. 



b) Impossible: the ELSE clause of C2 branches into the ELSE clause of C3. 

c) Impossible: the THEN clause of C2 loops around, which would require travers- 
ing a (me upward. 

d) 
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4.IC 

a) Not satisfied. 

b' Illegal. The correct syntax is NOT >. 

c) Satisfied. 

d) Satisfied. 

e) Illegal- Vecior comparisons must involve subscripting. 
0 Not satisfied. 

g) (A>B)&(A<C) 

h) (Vn«S)A((0=D)l(D = 4» 


4.ID 




IF W < L THEN SQ = 0; 

ELSE IF W > L THEN SQ = 0; 

ELSE SQ = 1 ; 

AkEA = W L; 


IF SQ = 0 THEN WRITE(6) ‘NO SQUARE*; 

ELSE IF AREA < 4 THEN WRITE(b) SMALL SQUARE’; 
ELSE WR1TE(6) ‘LARGE SQUARE*; 


4.2/v 



The original code was over 300 state- 
ments, while the new code is about 
160 statements. 

This change can be made in a valid 
HAL/S program: group C is removed 
entirely from the IF statement, which 
now consists only of the section of 
the flow chart lying within the dotted 
rectangle. 


I 





* 
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Note that this flowchart: 



does represent a shorter program than the original, though it cannot be translated 
into a valid HAL/S program, as this would require branching into the ELSE clause 
of the condition, which is not legal in HAL/S. 


4.:b 


n 

n 

n 

H 

n 

H 

« 

M 

n 

n 

n 

n 

n 

•1 


aOlUTIOW: 

paoGRAn; 

DCCLAIIC SCAUR# 

A# B. c. Of e. f. X. v; 
READ(S) A. B« C» 0# C» F'. 

IP (A 0 - B C) « 0 THEN 

KRITEU) *NO SniUTXON EXISTS*; 
ELSE 
OOt 

X « If 0 * B f) / lA 0 - B C); 
Y ■ lA P > E C) / U 0 - B O; 
URXTEU) X, Y; 

end: 

CLOSE solution; 


4.2C 


IF Y < X THEN DO; 

IF Y < X - 1 THEN Y » Y + 1; 

ELSE Y « Y - I; 

END; 

ELSE IF Y > X + I THEN X * X - I ; 
ELSE X » X ♦ I, 
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a) The line from C4 to C represents a branch into the ELSE clause of C3, which is 
illegal in HAL/S. 

b) The following flowchart removes the difficulty without making any change in 
the order of execution of any statements: 



IF Cl THEN DO; 

IF 03 THEN D; 
ELSE C; 

END; 

ELSE IF C2 THEN DO; 

IF C4 THEN C; 
END; 
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c) If the flowchart had been structured, it woutd have been awkward even to draw 
lines from both C3 and C4 to C, and the fact that there was an illegal construct 
in the flowchart would have been obvious. To illustrate: 



4.2E There are several posaible solutions, one of which is given here. 




THEN 
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HAL/S code to imptement the revised Howchart would be: 

IF (C l AND (NOT C3» OR (NOT Cl AND ( 2 AND C4) THEN C. 
FLSF IF n THEN D; 

EI^E IF -1C 2 THEN A; 


a) Relational expression, not satisfied. 

b) Boolean expression, false. 

c) Relational expression, satisfied. 

d) Illegal, 
c) llleial. 

0 Relational expression, satisfied 
g) Boolean expression, false. 


DO CASE I + I ; 

ELSE SC RAMBLE - 3; 
SC RAMBLE = 4; 
SCRAMBLE = 0. 
SCRAMBLE » 5; 
SCRAMBLE « 3; 
SCRAMBLE » I; 
SCRAMBLE « 2; 

END, 



014 ApfitftdixC 


Solotkm» 

5.IA 

Since the loop control variable is an integer, while the increment is the scalar value 
. I , on each tfcration I will be added to . 1 , the resulting 1 . 1 will be rounded to I , and 
the control variable will never change. That is to say, the loop will never terminate, 
so the question is unanswerable. 


DECLARE V VECTOR(5); 

DECURE NEC FART INTEGER; 

DO FCR NEC FART - 5 TO I BY -I; 

IF VSNEG FART < 0 THEN EXIT; 

END; 

Note that if no component of V is negative, NEG^FART will equal lero upon exit 
from the loop. 

5.IC 

N is equal to 14 on exit from the loo^. because in DO FOR 1 « 1 TO N BY 2, N is 
evaluated only once, upon entry to the loop, when its value is 9. The loop will there- 
fore be executed five timet, leaving N equal to 14. 

5.ID 

a) The assigns the value .2 to all the elements of A. 

b) 

DO FOR X - I TO 5; 

DO FOR Y • I TO 5; 

A$(X.Y) - .2; 

END; 

# END; 
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5. "A 

a) The program will write the values: 

: INITIAL_VAU'F 
4 INITIAL VALUK 
8 INITIAL .VALUE 
16 INITIAL VALUE 

b) DO FOR X - 1 TO 4; 

N • " 

WRlTttb) K; 

LND; 

»e posubility; 

DO FOR X • : TO 4; 

WRITEtb) 2**N; 

END; 

is another* and clearly there are many others. 

5JA 

DECLARE V VECTOR(5); 

DECLARE NEG_PART INTEGER; 

DO FOR NEG PART « 1 TO 5 WHILE VSNEG PART >- 0; 
END; 

IF NEG^PART 5 THEN NEC PART * 0. 


5.4A 

If V$1 • 0, the code shown will not exit with NEG_ PART ■ I, as it should. This 
occurs because the UNTIL clause wJI not be evaluated for the first ^me until 2 has 
been assigned to NEG PART in the DO FOR loop. 


5,5 A 

a; I w X < lot 
b) X-IOI 





016 App<ndix C 


5A 


For this solution, wc take the original DELTA to be assume 

that INITIAL < FINAL. ^ 


•' JWPSON: 

H ppospah; 

H OCCLARC SCALAR* 

n INXTXAt.VAUIC. PINAl.VALUC* OLO.ARPROX* NSU.APPROX, POINT; 

n DECLARE SCALAR* 

H DELTA* epsilon; 

n OLO^PPROX* NEU^APPROX « 0; 
n READ! SI INITIAL .>^4LUE» PXNAL.VALUE* EPSILON; 

H DELTA « (PINAL.VALUE • IHITIAL.VALUE I / 5; 

H DO U;TZL CNEU.APPROX - OLO^APPROX) < EPSILON; 

n OLO.APFROX « NEU.APPROX; 

ri NEM^APPRox s sort; initxal.value ) ♦ sqrt(final.value>; 

n do for point « INXTIAL.VALUE ♦ delta to FINAL.VALUE - (DELTA / E) DY DELTA; 

n NEU.APPROX a NEU.APPROX ♦ 2 SQRTC POINT i; 

M ENO; 

n KEW^APPROX » NEH.APPROX DELTA / 2‘* 

H DELTA s DELTA / 2; 

n end; 

n write; 4 ) neh.approx; 

n close sinpson; 


5B 


a) This program admittedly an inefficient one, will print all prime numbers from 3 
through 499. 

b) A solution that does not change the computations performed is: 


M 

N 

n 

H 

n 

n 

H 

H 

H 

N 

n 

n 

N 


DITTERt 

PROCRANt 

DECLARE INTEGER* 

NunsER* divider; 

DO FOR NUnSER « S TO 444{ 

DO FOR DIVIDER ■ 2 TO HUNGER - II 
IF NODI hunger* DIVIDER) « 0 THEN 
exit; 
end; 

IF DIVIDER « HUNGER THEN 
WRITE! 4 1 HUNGER; 

end; 

CLOSE GETTER; 


\ 

i 



4 

I 
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Solutions 

6.1A 

a) Illegal. X is set to 3, but a variable with the INITIAL attribute is not considered 
to be computable at compile time, so the declaration of LIST_ONE is errone> 
ous. 

b) Legal. LIST_0NE is an array of 4 scalars, value (.2,.2,.2,.2). LIST_TWO is an 
array of 4 integers, values unknown. 

c) Legal. LIST_THREE is an array of 1 8 scalars, value 
(.l,.l,.l,.l,.l,.l,.i,.l,.l,.l,?,?,?, ?,?,?,?,?,). 

d) Legal. LIST_FOUR is a 9 by 3 array of 27 scalars, value 

/ 1 .1 .1 .2 .2 .2 .2 .2 . 2 \ 

{ .2 .2 ? 1 ? ? ? ? I 

\? ? ? ? ? ? ? ?/ 

e) Illegal. The ARRAY specification must precede the type specification. 

6.1B 










J 
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N 

EXAMPLE.2 : 

n 

prqcpam; 

M 

DECLARE GtRO.ZNPUT ARRAYMEl INTEGER INlTIAL(Ot; 

M 

DECLARE ATT^RATE ARPAII12J SCALAR; 

M 

DECLARE SCALE ARRAY! 3l CONSTAHTI .015, .026, .0I3>; 

M 

DECLARE BIAS SCALAR INITIAL! 57. 296 1 ; 

M 

DO FOR TEMrORARY I * 0 TO 9 BY 5; 

M 

00 FOR TEMPORARY J « 1 TO 3; 

M 

ATT^RATE * CYRO^XNPOT SCALE ♦ BIAS; 

S 

1«J J 

M 

end; 

n 

END: 

M 

CLOSE EXAMPLE,:; 





<1.1 n 


H 

M 

H 

M 

H 

3 

n 

M 

3 

n 

M 

S 

M 


tXAMPLE AA: 

FRC3RAH; 

DECLARE A ARRAY(S) SCAUR: 

DECLARE TEMP SCALAR: 

temp s a ; 
s 

00 FOR TEMPORARY T » 4 TO 1 BY -1; 
A s A ; 

T^l T 

ENO: 

A ■ temp; 

1 

CLOSE EXAHPLE.AAt 


6.2A 


a) 

Legal 

k) 

Legal 

b) 

Illegal 

I) 

Illegal 

c) 

Legal 

m) 

Illegal 

d) 

Legal 

n) 

Legal 

e) 

Legal 

0) 

Illegal 

0 

Illegal 

P) 

Legal 

g) 

Legal 

q) 

Legal 

h) 

Lepl 

r) 

Legal 

i) 

Illegal 

s) 

Legal 

J) 

Legal 

t) 

Illegal 


6.2B 



A single arrayed statement takes the place of one or more loops and a statement to 
perform the same operation on each array element that the arrayed statement per- 
forms on the entire array. If the programmer writes these loops, loop variables must 
be declared, correct loop limits must be coded, and such must be nested if the 
array is of two or more dimensions. This means extra work for the programmer, and 


* 
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more complicated and potentially incorrect or unreadable code, if an arrayed state- 
ment is coded, the compiler does the bookkeeping, and may even be able to produce 
more efficient anle, since loop variables will not need t ^ be saved for later reference. 


6.3A 

a) 

X 


b) 


Y 


c) 


Z 










) 


/y a (. 1, . I, . 1, . I. .l,.!,.l,.l, 


6.3B 


S « XS(3:I,3); 


S « Y$(3,l:3); 


S = Z$(7:3); 


S • A$21; 


M$(l,2 TO 4) « 

M$(l,5 TO 7) « 

M$(l,8) 

X$(2:3,M; 

XSO:!.-*); 

X$(3:2,l); 

M$(l,2 TO 4) ■ 
M$(l,5 TO 7) * 
M$(1.8> 

Y$(2.3;*); 

Y$(3,l:*); 

Y$(3,2:l); 

M$(l,2 TO 4) » 
M$(1.5 TO 7) * 
M$(l,8) 

Z$(6:*); 

ZS(7:^); 

Z$(8:l); 

M$(l,2 TO 8) • 

A$(I6 TO 22); 


from X 


fromY 


from Z 
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6.3. lA 


H 

n 

M 

H 

n 

t 

« 

s 

M 

n 

i 

« 

s 

w 

M 

« 

H 

n 


6.4. 1 A 

DtCLARP TEMP VECT0RC7); 


TEMP ^ VECTOR$:7(X); 

M$(l,2 TO 8) * TEMP$(16 TO 22): 

TEMP * VECTOR$:7(Y); 

M$(U2 TO 8) = TEMPS06 TO 22>; 

TEMP = VECTOR$27(Z>; 

M$(l,2 TO 8) « TEMP$(I6 TO 22); 

The assignment fiom A Is aln^ady quite simple. 


PRines: 

program; 

REPLACC LiniT B1 **100” J 

OECURC PffXriE ARRAminZT) BOOLEAN INXTZAUTRUEU 
DO FOR TEhPORARY I s 2 TO IZHIT; 

IP PRIME THEN 
l: 

do; 

DO FOR TEMPORARY J * 2 Z TO LIMZT BY 1} 

PRIME * PALSEi 
j: 

end; 

kRITECA) 11 

end; 

END; 

CLOSE primes: 
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DFCLARE TIMING DATA ARRAY(4.26) INTEGER INITIAMO); 
DECLARE 1 INTEGER; 


DO FOR I = I TO 25; 

TIMING^DATASd TO 3,1) = TIME^VALUESS(M); 
TIMING DATAS(4,I) = SUM(TIM VALUES$(M». 
END; 

DO FOR I = I TO 3; 

TIMING, DATA$U,26) = SUM(TIM_VAtUES$(l,*»; 
END; 
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SohitioM 

7.IA 

2 

4 

7.IB 

line 3 : the variable Y t$ known only within the scope of function PROC! 

line 6: Function PROCl cannot invoke itself 

line 7: PROC2 has not been declared or assigned. 


7.1C 

Block: May be invoked from block(s): 

2 l.3A5,6 

3 1.2 

4 3.5.6 

5 3.4 

6 5 

7.2A 


Move the code block defining ALMOST^EQUAL from the end of the program to a 
point before ALMOST. EQUAL is invoked; i.e., immediately before or after the 
block MASS. 


7.2B 

a. The function RANDOM returns a scalar X with uniform distribrtion in the range 
(X X < 1 . The function ROLL uses the implicit scala^to*integer converuon sup* 
plied by HAL/S. with implied rounding. Its results may be described by a table: 


a random vakw in the range: 
(X X <.i 
.!< X <J 
.3< X <.5 
.5< X <.7 
.7< X <.9 
.9< X <1 


yields an amount of: 

1 

2 

3 

4 

5 

6 


Thus, it it clear that the probabilities that ROLL will return I and 6 are 1/10, 
while the probabilities of 24*4* ond 5 are 1/5. 
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7.3A 


n 

n 

n 

H 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 


PIX.IIOU.I 

WOGttM; 

OtCLMI COUNT INTtSCV INITmCOU 
DCCLARI XNTCOC*. 

X. ROLLl. ROLU; 

ROU: 

RROCCDURf A$9I«NU); 

OtCtARC A XNTieiRt 
A > TRUNCATK4 RANDOTI ♦ 

CLOSE ROLLS 

DO FOR X • I TO SS 

00 UNTXL ROLL! * ROUE > 7S 
COUNT ■ COUNT ♦ IS 
CALL ROLL ASSXSNSROUX SS 
CALL ROLL ASSXSNS ROLLS U 
ENOS 
ENOS 

URXTEIA) COUNTS 
CLOSE FXSLMLLS 


The solution in wh^ch ROLL is a function K clearly prcferahlc, because the code to 
invoice ROLL is much simpler in that case. 

In general, when a block is to produce as output a single value of any HAL/S type, 
the FUNCTION form will tend to produce more comprehensible code than the 
PROCEDURE form. This is becauK the calling sequence for a function mirrors 
closely the mathematical notation for a function, and because often (as in this ex- 
ample) use of the functional form avoids the introduction of **dummy** variables 
with no intrinsic meaning to the algorithm being implemented. In the procedure 
form, theK dummy variables must be used as ASSIGN parameters. 
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7A 


n 

ft 

ft 

ft 

n 

n 

n 

ft 

n 

ft 

It 

ft 

ft 

n 

ft 

H 

ft 

ft 

n 

ft 

ft 

H 

n 

ft 

n 

ft 

ft 

M 

ft 

n 

R 

R 

R 

R 

R 

R 

R 

R 

R 


ORORt 

PtCdtAHt 

OICURI fCAUR* 

OROP^TinC, MUfCI^TXftft 
OICURI tCALAR XfaTXUttl. 

TSftt. »tOfX1.0IStt 

OlCUil RttRRT KAUR iNltSAUllfU 
DtClARI RORU.miO CRNttAMTiAlt 

oicim • cofittAfiTostt 

BiCLAie t iMTiaii; 

RtRliCK NURRtR.Of.tOUNCIt IT **lt**t 
TIRf^tO.ORORt 
rUNCTXOMiHll 

eiCUMt R ICAURt 
RITURH RQRTtt N / Rlt 
CtOSI tlRt.TO.ORORt 
HORXZ.flOTXONt 
RRCCCOURtlTI AStXtINRft 
OICURf KALAR» 

T» Rt 

R > R « RORIt^tRUR Tt 

ctesc «tORXA.noTioNt 

•OU«|t 

RROCIOURt AffXRMtM. Tft 
DCeURI KAUM* 

R» tt 

R « .7f Rl 
t • tRRTtX R / Rlt 
CLOU MtRCtl 

DO ret I • I TO NURHR.OR.NUNCItt 
DROR.tXftC • tXftf TO.IHieRtRIXRRTII 
CAtA NeRlX.ROTiefROROR.tXRi I AftHWReRXX.OXitft 
tlRl • t|Rt « OROR.TXftCl 

MRItIUl *OOUNCf*i t. *tXR|*. tXt1t» 'NORlXOflTAl OXfRUCfRINTS ReOXX.eXOtt 
CAAi lOUNCI AUlOfRRtliRt* OOUNCl.tXRI » t 
CAIA ReRXX.ROT|eMIOeUNCI.tIHt» AtSXiKtReRIX.OItt»t 
tXRI ■ TXRf * •eUNCX.tXfttt 
IMOt 

CIOM ORORI 




SirmON: 

wosffAn* 

OtClAffC KUAff, 

lNmAL_VAlUC» rXKA^VAUICf OtO^AfmX. NIU AltfKOX. POINT) 

DfCLAAl KALM. 

DILTA. tP9IL0N» A, », C» 0) 

POLTJ 

PUNCTZONIX) 9CALA») 

OICLAIII X $€AUMt 
) t 

MTUPN AX «tx ♦CX*0; 

CLOSE POLT) 

OLO.APPtOX, NtU^APfffOX • 91 

ll|AO'») A. •. C. 0* INITIAL. VALUC* PINAL VALUC. CPtUON) 

DELTA ■ irXNAL.VALUC • INITIAL. VALUC ) / t) 

00 iINTZL (NCU.APPtOX - OLO.APPiOX) < CPSZLON; 

OLO.APPtOX » NCN.APPWOXS 

NIU.APPVOX • POLTt ZNZTZAL, VALUC » ♦ POLTIPZNAL VAIUII; 

OO POX POINT • ZNZT1AL.VALUC ♦ OC.TA TO PENAL^VALUC - lOCL^ / t) iY OCLTAt 
NfW.APPXOX • NCU.APPXOX * 2 POLTIPOZNTM 
INOt 

NIN.APPXCX t ncu.appiox DCLTA / tt 
OCLTA • DUTA / 2) 

end; 

UXITCIA) NtU.APPXOX: 

CLOfC sirtPSON; 
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1C 


M 

H 

H 

n 

n 

N 

n 

N 

« 

M 

n 

H 

n 

« 

n 

M 

« 

n 

N 

« 
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OPOP: 

ppogpah; 

OCCLAPe SCAUP, 

OPOP.TtHS, eOUMCC.TXtIf; 

OCCURE SCAUR INITIAUO), 

TIME, HCPIZ.OIST; 

DECLARE HEIGHT SCALAR INITIAL! 110 1 ; 

DECLARE HORIZ^SPEEO C0.STANT(4); 

DECLARE 6 COtlSTANTfSZi; 

DECLARE 1 integer; 

REPLACE NUr3£R,OF^80UNCE5 BT •‘10** J 
TIMf TO drop: 
nojcriONiK); 

DECLARE H SCAUR; 

RETWRM SCRTU M / Gi; 

CLOSE TIME.TO^OROP; 
eoUNCC: 

PROCEDURE ASSIGN! H, T); 

DECLARE SCALAR, 

H, TJ 

H s .7S h; 

T « SORTIE H / 0); 

CLOSE bounce: 

00 fCR X • 1 TO MUHBER^OF^BOUHCES - 1} 

DR0P.TIJ1E « TWE TO.OROPI HEIGHT): 

H0R1Z.0IST s HORIZ OIST ♦ HORIOPEEO OROP.TiriE: 

TIME » TIME ♦ DROP TIME: 

WRITE(O) ^BOUNCE*, I, 'TIME*, TIME, 'HORIZONTAL DXSPUCENENT * , HORIj^OXST: 
CALL BOUNCE mSSIGNI HEIGHT, BOUNCE^TIHE ): 

HORXZ.DIST « HCRIZ^OIST ♦ HORXZ.SPEEO BOUtCE.TXHE : 

TIME « TIME ♦ BOUNCE.Tim: 

end: 

OROP^TIMC « TIME TO^DROPI HEIGHT); 

H0R1Z.,01ST « HORU^DIST ♦ HORIZ.SPEED OROP^TIME: 

TIME ■ TIME ♦ DROP TIME: 

HRXTEIA) 'BOUNCE*, X. 'TIME', TIME, 'HORIZONTAL OXSPUCEMENT* , HORIZ^DIST: 
CLOSE DROP; 
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SoUtiUins 


S lA 

1 hort* MV scvcmI aUvantitHcv to tutmnji I O v luinnoU 

\) It several oluinitcls mv m use. giving them ilcsertplivc iwincs makes it cicatrr 
N^hat any parficutat I O statement in \tomg. 

'I Heleivnces to HHM Ai l* maen>s are collected in the cinwn rel'etence table, allow 
ing all I i) statements to be tomul <piickl> atui eaMiv. 

It it becomes necessary to ixussign a channel, the channel mimt>er need only be 
changed once, in the KMM At 'I* statement, and all I O statements, leterencing 
that channel ^mII .mtonutuallv be changed 

S III 


I he expn'vsions m the list ate evaluated one hv one. and data items converted to 
character stung standan! external loiinat I'liese strings are then assembled into lines 
and nansimtted m an implementation dependent fashion to the output device asso- 
ciated with the channel number specified m the WHIVI* statement. 

Any legal IIAl ,S expression m iv apiKur m a WKI lb statement. I'here aiv m> ivstiic 
tious whatsoever on output. 


a> 1 and 5. 
bl I..I.4, and>. 


a> l irst, the thit*e matrices m MAI VKKI will Iv printed, then the thive matrices 
inMAV AKK:. 

M The easiest way to do this is with loops 

IH) \ OH n MIHfHARN I ** I TO ,1. 
iH) urn n MiH)KAHv I - I ro .1. 

WKimm MAI ARHIStI I.M.IAHi^m.MAl ARR.'$tl 
tNO. 

wRin-ud sKirt.M. 

INI). 


II could also he done wiih a single WRI 11* statement 


WRIlbiM MAI ARRIS(< I.M. 
IxnUMNiD.MAI ARRim '* 
I'OlUMNtU.MAI 
iDUlMNtiVMAI 
i'OlUMNtlhMAI 
iiMDMNtlKMAI 
i'OUIMNtn.MAl 


ARRIVJ 
ARRISt: I. 
ARRikt.' 
ARRISt. .!.• 
ARRISt.l I 


rAWCm.MAb AKK.'Sil I.M.SKirth, 
KIAHi^Ol.MAI ARR:$U 

i.iAHt:m.MAr arr.'mi 
UA iu'm.MAi arr:$i: l.♦KSKnM>. 

1. 1 Am .'oi.M A I ARR:$t : sKim i >. 

1.1 Am.W.MAI ARR:$0 d.M.SKIIH.I). 
VAm.'Ol.MAb ARR:j$t.l I.M.SKIIM). 


r 
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COLUMNdKMAT ARRI $(3:2,*)TAB(20KMAT ARR2$(3:2/KSKIP(IK 
COLUMN(1),MAT^ARRIS(3:3.*).TAB(20),MAT^ARR2$(3:3,*K 


8.2B 


1) b 

2) a, c 

3) d 


4) c (paged files only) 

5) a, e 

6) none of a-e; overrides the default SKIP( I ) 

7) c 


8.3A 

a) INTS « (8.7 J); SCALS = (-1.225.4) 

b) INTS « (0.1. 1 ); SCALS « (7,2.0.0) 

c) INTS = (2.U): SCALS * (2.49.0.2.51) 


8.3B 

Change the READ statement to; 

READ(5) COLUMN(8).INTS.SKIP( 1 ).COLUMN(8),SCALS; 


8.4A 


All are legaf character subscripts. Only a. b. c. and e are legal vector subscripts; 
the others have partition sizes not computable at compile time. 


8.4B 


The output will be similar to this: 

ABC ABCABC 
I23AB BC456 
1223ABC456 
ABCABC ABC 


8.4C 


All the expressions listed are true. 


8.5.IA 


Only character strings may be read using the READALL statement. 
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8.5.1B 

All characters on the input file are retrieved by the READALL statement, no matter 
whit they arc. Character strings to be input using the RF\D statement must be sur- 
rounded by single quotes, which are nof placed into the target variable. Further- 
more, single quotes represent themselves in READALL input, while they must be 
represented b> a pair of quotes in succession in READ input. 
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revepse; 

FRCCRAft; 

DECLARE ARP ATI 5) CHARACTER! 5 1 * 

CHAR ARRl, CHAR ARRZ; 
DECLARE X INTEGER; 
rev: 

FUNCTION! C) CHARACTER! 5) ; 

DECLARE C CHARACTER! » I i 
DECLARE CHARACTER! A) » 

CTEMP, CHAR REV; 

DECLARE INTEGER. 

I. l; 

CHAR.REV. CTEHP * C*. 

IF CTEftP ■ •* THEN 
RETURN 

t 

L s LENGTH! CTEftP); 

DO FOR I e I TO L; 

CHAR.REV « CTEHP ; 

I L41-I 

end; 

RETURN CHAR.REV; 

CLOSE rev; 

READ! 8 r (CHAR. ARRl It (CHAR.ARR2); 

DO FOR X « I TO S; 

CHAR ARRl « TRimCHAR.ARRl ); 
X: X: 


t t 

CHAR ARR2 « TRimCHAR ARR2 M 

X: X: 


WRITE! A) COLfHNtS)* REVI CHAR ARRl )t COLUffl!18)t REV! CHAR. ARRt M 

Xt XJ 

end; 

CLOSE reverse; 



S' i %. 


ApprnJix C C-3J 


8B 
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OECOOE.N*ilES: 

PffOGRAHi 

OECIAKE NAflES ARRAYI50. E) CHARACTERUS); 
DECLARE INLINE CHARACTCR(80»i 
DECLARE I integer; 

REPUCE NO.OE^NAMES PY ♦‘SO"? 

INLINE * 

DO FOR 1 » 1 TO NO^OF^NAMES; 

CALL GET.NAnEd); 

IF NAMES a THEN 

I»E:1 


URlTEtA) NAMES II * It NAMES ; 

X.l: I.C: 

ENO; 

GET name: 

PROCEDURE! N); 

DECLARE INTEGER* 

N* k: 

IF INLINE = *• THEN 
CALL get^line; 

K « XNDEXaNLlNEt \M: 

IF K a 0 'mEN 

CALL FIRST AND LASTI INLINE* HU 
ELSE 
DO* 

CALL FIRSTHAND LAST! INLINE • Hi; 

I TO K-l 


* I 

INLINE a TRIM! INLINE )i 

K«1 TO • 

ENO; 

FIRST. ANO_ last: 

PROCEDURE! C> N)} 

DECLARE C CHARACTER! «). 

N integer* 

X xnteger; 

I ■ XHOEXtc. ♦ m; 

HAmS a c } 

N.l: X TO X-1 


NAMES a C ; 

N.st :*X TO • 

CLOSE first.ano.ust; 

GIT.LXNl: 

PROCEDURE t 

REAOALLISt XNLXNEI 

INLINE a TRIM! INLINE U 
CLOSE GET.LZNEI 
CLOSE OET.NAMEI 
CLOSE DECOOE.NANESI 
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N 
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fi 
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fi 
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fi 
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ri 

rt 
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riUtirep^ TO. English: 

puociu^; 

ueClIPr INTCGEP. 

M. H. T. u: 

DECLARE CHAPACTERIIOt. 

LEFT^PART, right^part; 

DECLARE TENS AR5ati«» CNARACTfRlTI IN1T1AL1 ‘TEN* 
'SEVENTr*. 'EIOMTf. ’NISETl‘». 

declare TEENS AP»A>(R» CHARACTER! •» IHlTIALI *E LEVIN* , '1 
. 'SIVTIEN', ‘StVENTlEN’. ’IlCHMlN'. 'NINCTItN'i; 
DECLARE L'NITS ARRAYtRI CHARaCTERiS! INITIAL! 'CUE ‘ t *TwO 
. IICMT'. NINE‘>; 

REAOISt n: 

IF N * 0 ININ 
DO. 

LEft_part « 


TUtNTV, ‘TNIRTT*. 'FORTT*, ‘FIFTY*, 
‘TmIRTEEN’, ‘FO'JRTEEN*. 
?lt‘. ’FOl>R*. ‘FIVE’. ‘SIX* 


RICMT^PART - 'nKO*; 

end: 

ELSE 

DO; 

H • DIVIN. )00>: 

T ■ PI JREnAIICOERtN, 100». lOfJ 
U » P[nAlNDC»(N, 10 »; 

IF M ' 0 THEN 

LEFT^PARf • UNITS II * HUNDRED *; 
H- 


n 

E 

ri 

n 

I 

n 

3 


ELSE 

LEFT. PART * •*: 

IF U ■ 0 thin 

RIUNT part > TENS i 
T! 


H 

H 

H 

E 

H 

S 

n 

E 

H 

S 

n 

E 

n 

s 


ELSE 

DO: 

IF T ^ I THEN 

RIGHT PART « TINS I I M UNITS I 
T! U! 

ELSE IF T > I then 

RIGHT PART ■ TEENS i 
U5 

ELSE 

RIGHT PART • UNITS I 
U: 


FI 

Ft 

E 

n 

FI 


(NO; 

end; 

WRITE! ♦! LIFt'paRT It RIGHT. PART; 
CLOSE; 


•SIXTY*. 
•FIFTEEN' 
, ‘SEVEN* 
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Solutions 


STRUCTURE X: 

I Al, 

2 Cl VECTOR. 

2 Dl MATRIX, 
t Bl. 

2 El VECTOR. 

2 FI MATRIX; 

STRUCTURE Y: 

I a: sc alar, 

I B2, 

2 D2 ARRAY(5) VECTOR. 
2 E2 ARRAY(5) VECTOR. 
I C2 SC AUR; 


TEST OATA 


Lv 

M'^ \n 

a'^ ^b \ 

/I l\ 

VI V2 B VI 


b) TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 


.DATALMA 
DATA.LM.B.VI 
^DATAX,M,B.V2 
. DATA.LN.A.B 
DATA.L.NA.VI 
DATALN.C 
DATAIJA 
DATA.UB.VI 
DATA.U.B.V2 
^DATA.LK.A.B 
DATA.I.K.A.VI 
DATA l.K.C 


/I i\ 

VI V2 B VI 
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c) STRUCTURE DATA: 

1 L. 

2 M. 

3 A INTEGER. 

3 B. 

4 VI VECTOR, 

4 V2 VECTOR. 

2 N. 

3 A, 

4 B INTEGER. 

4 VI VECTOR. 

3 C SCALAR. 

I I 

2 J, 

3 A INTEGER. 

3 B. 

4 VI VECTOR. 

4 V2 VECTOR, 

2 K. 

3 A. 

4 B INTEGER. 

4 VI VECTOR, 

3 C SCAUR; 

d) All of the assignments shown are legal. 


9,2C 


STRUCTURE MINOR: 

I V VECTOR, 

I T SCAUR; 

STRUCTURE MAJOR: 

I XI MINOR-STRUCTURE. 

I X2 MINOR-STRUCTURE. 

I X3 MINOR-STRUCTURE. 

I X4 MINOR-STRUCTURE. 

I X5 MINOR-STRUCTURE; 
DECURE DATA MAJOR-STRUCTURE; 


READ(5) DATA; 

CALL PROCESS(DATA); 

The procedure PROC 'SS must be nuKtified to accept a MAJOR-structure as input 
instead of the ARRAY(2) it originally took. 
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9.3A 

STRUCTURB MINOR: 

I V VECTOR. 

I T SCALAR: 

DECLARE DATA MINOR*STRUCTURE(5); 


READ(5) DATA; 

CALL PROCESS(DATA); 

Now PROCESS must be changed to accept a 5-copy MINOR-structure as its argu- 
ment. The data is still read in the same order as before. 




a) 

A$(25;) or A$25 

type 

b) 

A.B$(*;3) 

type 

0 

A.C$(10 TO 20;) 

type 

d) 

A.D$(75 TO 85;) 

type 

e) 

A.D$(I;I) 

type 


AI-STRUCTURE 
ARRAY(IOO) INTEGER 
ARRAY(II) SCAIAR 
ARRAY(II) VECTOR(6) 
SCALAR 
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n 

H 
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niANi 

mtaam 

srwuenme wisohi 

1 SS XNTieCi OOUBLI» 

1 ULAST SCAUfft 
X jo&jcon iNTeoii* 

1 PNAHC CHARACTIRI 32 n 
PCCLARC eWANY PCRSON-STRUCTUItaaOU 
♦ 

aiAOIS) tCOHRANYlt 

WITIIA) turn iCONRANV.tAlAIIV) I / lOOt 
CLOU nCANt 


a) No: X.E.F has the RIGID attribute; Y does not. 

b) Yes. 

c) Yes. 

d) Yes. 

e) Yes. 


9 4A 




.t 


OSS Apptndtx C 

9.4B 

a) The 20th copy of A. 

b) The loth and 1 1 th copies of A. 

c) C from the first copy of A. 

d) D from the 4th-6th copies of A 

e) The 4th-6th components of D 
from all copies of A. 

9A 

Structures allow the programmer to organize data of mixed types into one logical 
unit that may be input, output, assigned, and passeJ as a parameter. When a struc- 
ture is passed as a parameter, overhead is saved, as all the components of the struc- 
a ture became available to the called procedure or function without being passed in- 

dividually as separate parameters. 

The use of structures also allows the transfer of an aggregate of assorted data in a 
single FILE I/O statement. In I/O contexts, multiple-copy structures are particularly 
convenient for reading or writing large blocks for the sake of efficiency. 


type: A-STRUCTURE 

type: A-STRUCTURE(2) 
type: INTEGER 
type: ARRAY(3) VECTOR(6) 

type: ARRAY(20) VECTOR(3) 
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n 

9t9T.0Wt: 

n 

F9CGi*An: 

n 

5T»UCTU»f IUH^OATA: 

n 

\ \tc VICTM. 

fi 

1 TltltTAC 5CACA*; 

N 

9T»UCTLH£ unit .oat*: 

n 

1 ACCIL XT£M,0AT*-9T»UCTU»«. 

n 

1 VCL XTin 0ATA-9TRUCTUVE. 

n 

1 RXTCH ITin OATA-9TROCTURI; 

n 

9T»UCTtV| eSST: 

« 

1 eiST ACCfL XTfn.0ATA-9TRlXTURE, 

n 

1 6£9T VIL mn 0*TA-9TtUCTlWe. 

n 

1 BIST PITCN ITfM.DATA-STRUCTL’Rf ; 

n 

OtClAPt B£9T data et5T-9TRL*CTURt ; 

n 

OlCLARt STSTin.DATA UN1T_0A1 A-»T»UCTUR|I 9 1 i 

n 

mooif : 

n 

PUNCTieN«OrU> XT|n.0ATA-9TI»urTmi; 

M 

DECLARE Oru XTin 0ATA-9T9CCTURH J 1 J /• DATA PROfl UNIT •/ 

n 

IP 0FU.TIHETA6 > PIIDVAU OFU. TIHETAO * DFU.TIHETA6 > DFU.VXNETA4 1 TNEN 

% 

i; r. Zi Si 

t 

« 

n 

RETURN OFU i 

9 

Xi 


XP OPU.TXnfTAa t mDVAUOPU.TXrtETA& . OFU.TXHETAO * OFU.TinETAb ) THEN 

9 

2: li Si Si 

t 

• 

n 

■tTURN OFU i 

9 

Si 

1 

* 

n 

9ITUBN DPU 1 

9 

Si 

n 

CLOSE mOOlEi 

1 

« 

H 

•EAOiSl (9T9TEN.0ATAJ ; 

1 

• * * 

H 

eE9T.0ATA.CE9T.ACCU > mCOlCMSTSTEN.DATA. ACCEL) )i 

9 

• ; 

I 

* « • 

n 

■ mooin (St5T|h^5ATA,VUl ); 

9 

* • * 

1 

« • * 

N 

MST^OATA.ifiT^flTCH » mOOLU {StSTirt^PAT A . PITCMl »; 

9 

« ; 

n 

Clou octr.CNK; 
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SokitioM 


lO.IA 

Control falls through to the statement following the ON FRROR statement* unless 
the ON ERROR statement has: 

1 ) caused a GO TO or RETURN statement to be executed* or 

2) specified SYSTEM or IGNORE* in which case either control returns to the pro* 
gram at the point where execution was interrupted* or the program terminates* 
depending on the particular error. 

tO.IB 

If the error should occur after control has left the loop, an unexpected transfer of 
control into the loop will occur* potentially causing disastrous results since loop vari* 
jhles may have unusual values* and TEMPORARY variables may even have been re> 
defined since leaving the loop. 

The compiler normally enforces a ban on branching into DO . . . END groups. In this 
case where the compiler is unable to do so* the programmer should follow the same 
course. 

lO.IC 


1) SYSTEM: If no ON ERROR statement is active for the current error, or if the 
active one is ON ERROR SYSTEM* the standard action* if any* is taken gnd an 
error message is sent. 

2) IGNORE: If an ON ERROR IGNORE statement is in effect for the error in 
question, the standard flx-up is taken and no error message is sent. 

3) If an ON ERROR statement defining a user action is in effect for the specified 
error, then the user code receives control without possibility of returning to the 
point where the error occurred. No error message is sent. 


10. ID 

Error SpeetflcaticMi 

ERROR$<m:n) 

ERRORMm:) 

or 

ERRORMm) 

ERROR 


^^meadetsee 

1 first 

2 
2 

3 last 
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\0 2 \ 

An error handler may be UeactWaicd. 

\ ) when flow of co.rtrul leaveii th« V ? . the handler, 
whrii il nuperfvded b> ano’^ t' ’ - ..jkr, and 
jt> when (in OFF * HKOR '»tale^'.. : /' U e same form is executed. 


a 


i 

s / 


# 


r* ' 



I0.2B 

a) AH three error handler^ a?*; active: both OFF ERROR statements were ig- 
nored. 

b) ON ERRORSU l> IGNORE, and ON HRRORSC ) IGNORE; are still active. 
The first OFF error statement cancelled the first ON ERROR statement, and the 
second had no effect. 

I O JA 

The SEND ERROR statement is used: 

1 ) to simulate the occurrence of system-defined errors for testing, and 

2) to allow the user to define errors and write error handicn for them. 

lOJB 

When an applicable error handler is found in the local block, higher level blocks need 
not be searched, as handWrs in the calling blocks arc overridden by the local handler. 

lOA 

a) No message 

b) Message 

c) No mefiage 

d) No message 

e) Message 

0 No mesuge 
g) No message 
h> Message 
i) No message 
i) Message 

k) Message 

l) No message 


' m * 
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Solotloiii 


IMA 

1 . If several pn>grammen are worktnf on a single large project, it will probably be 
convenient to assign them separately-cumpilable sections of the program com- 
plex. 

2 . In a miiltiprogramming environment where several PROGRAMS are to run con- 
currently. there is no way to compile them ail in a single compilation step, so a 
program complex must be created. 

3. If the overall structure of a program is fixed, but small sections are under-going 
revision, separating those sections out as COMSUBs may allow those parts to he 
revised and recompiled without requiring recompilation of the entire progran. 

II. 


Just as if the COMSUB were an internal procedure, the error en>ironment of the 
caUer is searched for an applicable enor handler, then the environment of the caller*s 
caller, and so on. 


II. 1C 


a) Compiling a COMPOOl reset ve« space for the variables declared therein. Also, 
in most implementationr ^ tempble is produced when the COMPOOL is com- 
piled. 

b) The CCMIPOOL template, witen included in the compilation of another ccmpila- 
lion unit, mattes the »^ariables declared in the COMPOOL known to that compila- 
tion unit, without causing any space to be reserved for those vailablc!i. 


II.2A 

The SCALARs A and B can only be referenced inside the program P but outside the 
FUNCTION blocli F. Inside of F, scoping rules will cause A and B to refer to the 
local INTEGER variaMes. 


II.2B 


FILTER does not require any of the data in GNC_POOL, so there is no need to in- 
clude the template for GNC.iNXJL in the compilation of FILTER. 


II.2C 


If several compool templates are inchided in a single compdr.i :n, namei of variables 
must be unique, because there ia only one scoptog level outside the main block of a 
compdation. Hence, it it in gmsfil detirahle to give compool variaMet unique 
names, so that it is possible to rsfet to any compool from any other compilation 
unit If necesmry. 
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U 2D 

a) A template for FILTER is needed in order to compile NAVIGATION, and with 
this order of compilation, it would need to be hand coded. 

b) In this case, CONTROL needs the template ^or FILTER. 

c) No template need be hand coded, as all will be available when they are needed. 

d) This order of compilation is particularly inconvenient; all templates will need to 
be hand coded. 


a) It IS possible that the savings account for one ID might be updated, then the pro- 
cedure interrupt and another account updated. When control returned to the 
first task, the updating of the checking account would then be done incorrectly, 
transferring funds from one customer to another. 

b) If SAVINGS and CHECKING are declared with the LOCK attiibute, and the 
transfer is enclosed in an UPDATE olock, there is no possibility of an incorrect 
transfer of funds as described above. 

11. 3B 

a) In this case, any interruption of an execution of AWARD„INTEREST by an- 
other process that calls AWARD INTEREST may cause either an error in up- 
dating the account, or in logging the interest. 

b) Make the procedure AWARD. .INTEREST EXCLUSIVE. Then there is no possi- 
bility that two processes will attempt to run AWARD_ INTEREST concurrently. 
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Sohitioiit 


12.1A 


£ 


0 80 200 280 400 480 600 680 800 880 1000 msec. 




80 160 


480 560 740 880 




0 160 320 


680 


12.1B 


0 80 280 360 560 640 840 nO 




I 


80 160 


4<)3 


653 


086 


160 240 


740 820 


I2.1C 


SCHBDULH X PRIORITY! 1), REPEAT UNTIL 3.5; 

SCHEDULE Y IN 2.5 PRIORITY(2). REPEAT EVERY I UNTIL 6; 


I2.2A 

The AT clause allows a process to he scheduled at a dermite, predetermined time. 
The ON clause, on the other hand, allows a process to be scheduled depending on 
occurrences of an unpredictable nature. Either one can be appropriate, depending 
on the desired effect. 


I2.2B 


Q is active only at B. 


I2.2C 


SIGNAL X; will cause X to become TRUE just long enough for all active event ex- 
piesiiona referencing X to be evaluated. In particular, no code testing X as a 
BOOLEAN variable wilt ever find it TRUE as a result of SIGNAL X;. The sequence 
SET X; RESET X; will also cause X to become TRUE, then return to FALSE, but if 
in the meantime the process executing the SET and RESET statements relinquishes 
control, X will remain SET during execution of some HAL/S code, and may be 
found to be TRUE if tested. 
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i2.:d 

^ SCHEDULE X PRIORITY(I). REPEAT UNTIL TRAN2; 

SCHEDULE Y ON TRANI PR!ORITY<2). REPEAT E'^ERY I UNTIL 6; 

I2.2E 

a) Unlatched; there is no need to specify LATCHED* so take the default. 

b) Latched; tt is not possible to signal several events simultaneously. 

c) latched; an unlatched event will always test FALSE. 

d) Latched; RESET is illegal for an unlatched event. 

e) Unlatched: presumably the loop is to execute once for each event transition, 
which would probably not happen if the event were SET and remained on. 

* I2.2F 

SCHEDULE T ON MASTER PRIO(999) REPEAT: 


T: TASK; 

RESET COMPL; 

WAIT FOR "IM ASTER; 
SET COMPL; 

WAIT FOR MASTER; 
CLOSE T: 



I2.3A 

N 

n 

n 

n 

n 

n 

n 

n 

N 

N 

n 

n 

n 


I2.3B 

Unless something causes P to exit from the DO WHILE TRUE L.>p, CANCEL P wilt 
have no effect. 

If X is necessary to keep P as it is, it can be stopped with: 

TERMINATE P; 



i 








However, it is safer simply to remove the DO WHILE TRUE; and END; statements 
from P, and derive the same effect fh>m writing: 

SCHEDULE P PRIORITY (100), REPEAT; 
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12A 


ttUi 

roost ah; 

0ICI.AIIE VCClOtt 

POSITION. ATTITUOI. VeiOTITV} 
OCCUUte KAIAI?, 

PtTCH.COrttANO. OOU.CCWWO: 
OECiAOe OtSTlNATIOH VtCTOO'. 
oecuol ARftAT(A>» 

SEttSEO.ATTSTUOE VECTOA* 

stHsro.vtAXiTT vector: 


XMPOT.PRX: 


prkeolke: 

/• SCALE AND PORttAT DATA PROH UNSORS « 

CLOSE XNPUT..PROC; 


ELC\*ON.Cr«Si 


prkeoure: 

/• COMHANO AEROSURFACES •/ 

CLOSE ELEVOK^CmSi 


TELEMETRY 1 


PRXEOUREi 

/• DOMNLXNK STATUS VARXSOLES • 

CLOSE TELEMETRY} 


RUOOER.CMOS: 


procedure: 

/• CONTROL YAH AXIS «/ 

CLOSE RUOOER.CMDS: 


CUXOANCE 1 


prxeoure; 

/• COMPUTE DESXREO PLX6HT PATH A 

close 6UIDANCE} 


PC.eAXNSi 


PRXEDURE} 

/• confute CONTROL LAU OAINS • 

CLOSE PC.OAXNSt 


NAVX6ATION1 


PRXEOt. 

/• COMPUT REAL POSITION AND VCLXITY • 

CLOSE NAwQATXON} 


OXSPUY.UPOTt 


PRXEOURE} 

/• RIFRESN CRT m/ 

CLOU DXSPUT.UPOT} 



SCHIOUll T1 PRIORITYIAI. 
SCHtOUlC Tt PRXORITTISI. 
ICNIOUll TS PRlORXTmi* 
SCMEOULE TA PRtORlTT(l). 
Til 

task: 

CAU XNPUT.PRXl 
CALL IIIVON.CMOS: 

CAU tilckctry: 

CLOU Tl{ 

Til 

task; 

CAU RUD0IR.CN0S} 

CAU CUIDANCC; 

CLOU Tti 

TSi 

TASK! 

CAU PC.OAXNS; 

CLOSE TS{ 

TAl 

TASK} 

CALL NAVIUTXON} 

CALL OXSPLAT.UROTl 
CLOSE TA} 

CLOSE ESN} 


REPEAT EVERY .1} 
REPEAT EVERY *t} 
REPEAT EVERT .A} 
REPEAT EVERY .Si 
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I2B 


n 

rsu: 

rt 

PRCGTAN; 

N 

oecLAse vtCTOii, 

n 

POSITION, ATTinjDE, vuocxtt: 

n 

OfCLAPE SCAliP, 

n 

PXrcH.corstATO, oou.corttANo; 

w 

OeClAPE OESTtrUTlON VECTOR: 

rt 

DECLARE AKRAYfAI. 

« 

SElWfO.AmTUPf VECTOR. 

tt 

scrrsio veiocitt vector; 

n 

OECLARE Tt.D(X«E EVENT: 

n 

XCWHTT.PPOC: 

rt 

PffOCEOVREi y* SCALE AND rORTIAT DA(A IRQI1 SENSORS •/ 

rt 

CLOSE IMPUT.Pt«: 

It 

ELEV'CN.CrOSS 

rt 

PROCIOURf: COTRIAIO ACROSURPACES •/ 

rt 

CLOSE ELCVQN.CrtOS: 

rt 

TELEWTRY: 

rt 

PROCCOLRC: OOUnlXNK status VARXAOieS V 

rt 

CLOSE TiLErtETRY: 

rt 

RODOER.CWSs 

rt 

procioure; /• control yam axis •/ 

rt 

CLOSE RUOOER.CmS: 

H 

OUXOAIXE: 

rt 

procioure; /• conpute oesireo FLXOHT path V 

rt 

CLOSE OUJOAICE: 

rt 

rC^SAINS: 

rt 

procioure: /• COHPUTE CONTROL LAW GAINS V 

rt 

CLOSE PC.OAXNS: 

rt 

NAVtOATXON: 

N 

procedure: /• cortpurt real position and vilocxtt v 

It 

CLOSE navxoatxon: 

rt 

oisplay.upot: 

rt 

prociol'R!: /• teiRisM crt •/ 

rt 

CLOSE oisplat^opot; 

N 

SCNICULE T1 priority! ir, repeat; 

rt 

SCHEDULE n PRIORITY! S), REPEAT: 

rt 

SCHEDULE n PRIORITY! Sr, REPEAT: 

rt 

SCHEDULE TA PRIORITY! A|, REPEAT; 

rt 

nt 

It 

task: 

rt 

CALL XNPUT.PROC; 

n 

CALL ELtVON.CHOS: 

rt 

CALL TILEftlTRY: 

rt 

SIGNAL Tl^OONC: 

tt 

CLOSE Tl: 

rt 

T|: 

rt 

task; 

rt 

wait tor tx^doni; 

It 

WAIT TOR Tl.OONC: 

It 

CALL RUDOIR.CHOS; 

rt 

CALL OUlOANCEi 

It 

CLOSE Tt: 

rt 

TS! 

rt 

TASK! 

rt 

00 TOR TEItPORART t • 1 TO At 

«l 

WAIT TOR TUOONEI 

n 

cr«t 

n 

CALL TC.6AXNS: 

N 

CLOSE TS: 

It 

TAl 

H 

task; 

It 

DO TOR TEItPORART t » I TO Ot 

«l 

WAIT TOR Tl.OONEt 


ENO: 

It 1 

CALL havxoation; 

It 1 

CALL oisplay.upot: 

It 1 

CLOSE TA; 

It 

CLOU tsm; 


This solution guarantees that the various tasks will never he executing any of their 
procedures simultaneously, thus avoiding the need for UPDATE block protection of 
anv shared variabte, providing that none of the blocks will contain WAIT statements. 
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Solutions 

I3.IA 

A) IF FLAGS AND BIN* 1 10000000000’ * BIN‘l 10000000000’. 

B) IF FLAGS AND BIN*01010101010r = BIN‘000000000000’. 

C) IF (FLAGS AND BIN*1 1 11 1 1000000* B1N*000000000000*) OR 

(FLAGS AND BIN*0000001 11111’ = BIN’OOOOOOl 11111’) 

D) IF FLAGS = BIN‘101010000010’. 

E) IF FLAGS AND BIN*1 1 lOIOOOOOl 1’ = BIN‘101010000010*. 

I3.IB 




* 
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13.ID 


H 

n 

n 

II 

n 

i 

N 


n 

E 

n 

E 

n 


N 


H 


n 

E 

H 

n 


NOmULi 

puNcnomutomi BxmtM 

OECUffE UNNQim BlTOtU 
OCCLABE B BXTC3E); 

DECLARE COUNT XNTE6ERS 

If widmn M HEx*Booooo* then 
9 TO 32 

RETURN HEX*Q00(000O*t 
B > un^h; 

00 FOR COUNT • 1 TO 6 NHXIE B « NEX*0*} 

4 AT f 


B « BITISHLIINTEBERIB >» 4M; 

24 AT 9 24 AT 9 


a ■ BIT (XNTE6CRIB I - 1>; 

7 AT 2 7 AT R-4 7 AT 2 

end; 

RETURN B{ 

CLOSE norhal: 


la.tE 


OUTPUT = IE5 INTEGER(INPUT$(4 AT D) + 1E4 INTEGER(INPUT$ 
(4 AT 5)) + 

IE3 INTEGERS’ UT$(4 AT 9)) + 1E2 INTEGER! INPUTS 
(4 AT 13 . 

I El INTEGER(INPUT$(4 AT 17)) > INTEGER(INPUT$ 

(4 AT 2D); 

I3.1F 

OUTPUT « INTEGER(BIT$(^HEX) (CHARACTER S(C-^HEX) (INPUT))); 


I3.2A 

1) Pttrtitionsof bit strings. 

2) Coi jtnns of a matrix. 

3) A structure node with copinesa. 
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I3.2B 

a) Yes, if a name variable points to some variable in an outer code block am! a vari- 
able is declared in an inner code block with the same identifier as that name 
variable points to, the outer variable can still be referenced. 

b) No, need more information than the address which is all the name variable 
allows. 

c) Yes, name variables allow sharing. Several name variables can point to the same 
data item. 

d) No, it is possible to go up and down name pointers but not reference an absolute 
address. 

e) No, name variables can only point to data of the same type they were declared 

13.3 A 

STRUCTURF LOOP: 

1 VALUE INTEGER, 

1 NEXT NAME LOOP-STRUCTURE; 

DECLARE CIRCLE LOOP-STRUCTURE; 

NAME(CIRCLE.NEXT) = NAME (CIRCLE); 

I3.3B 


STRUCTURE TQE: 

1 TIME SCALAR. 

1 ACTION NAME ACTIONS-STRUCTURE, 

I NEXT NAME TQE-STRUCTURE; 

STRUCTURE ACTIONS; 

1 ACTION INTEGER, 

1 AFFECTED-PROCESS NAME PROCESS CONTROL-STRUCrURE, 
1 NEXT NAME ACTION-STRUCTURE; 


line 28 


/ f DECLARE NAME TQE-STRUCTURE, NEWTQE, ENT; 

^ . DECLARE NAME ACTIONS-STRUCTURE, NEWACT. ENTACT; 

* • 

NEWTOE.TIME = WHEN; 

NEWACT.ACTION = WHAT; 

NAME(NEWACT.AFFECTED_ PROC ESS) « NAME(PROCNAME); 

after 
line 37 


NAME(ACTV„Q. ACTION) « NAME(NBWACT); 



non non 


Appendix C C 3I 


after 
line 40 


IF ENT.NEXT.TIME = NEWTQETIME THEN DO; 

IF NAME(ENTACTION) =» NAME(NULL) THEN DO; 
NAME(ENT.ACTION) =* NAME(NEWACT); 
RETURN; 

DO UNTIL NAME(ENTArT.NEXT) * NAME(NULL) 
NAME(ENTACT) * NAME(ENTACT.NEXT); 

END; 

NAME(ENTACT.NEXT) = NAME(NEWACT); 

RETURN; 


after 44 

NAME(ENi.ACnON) = NAME(NEWACT); 
after 50 

NAME(NEWTQE.ACnON) « NAME(NEWACT); 


I3.3C 

If PCB is first or last in the ready queue, the code to remove PCB from the ready 
queue will not work. Tu avoid the difTiculty. rewrite STALL as follows; 

STALL: PROCEDURE ASSIGNfPCB); 

DECLARE PCB PROCESS_CONTROL-STRUCTURE; 


Remove from ready queue 

IF NAME(PCB.LAST)«NULL THEN NAME(PCREADY)-NAME(PCB.NEXT); 
ELSE NAME(PCB.LAST.NEXT)»NAME(PCB.NEXT); 

IF NAME(PCB.NEXT)n*NULL THEN NAME(PCB.NEXT.LAS1>NAME 
(PCB.LAST); 


Add to stalled queue: same as in the text 

NAME(PCB.NEXT) = NAME(STALLED); 
NAME(STALLED) • NAME(PCB). 
CLOSE STALL; 



non 


C-52 Apptndix C 




13A K\_ENQUEUE: PROCEDURE ASSIGN(PCB); 

DECLARE PCB PROCESS_CONTROL-STRUCTURE; 

DECLARE PCPTR NAME PROCESS_X:ONTROL-STRUCTURE; 

IF NAME(READYPC) » NULL THEN DO; /♦empty queue*/ 
NAME(READYPC) « NAME(PCB); 

NAME(PCB LAST), NAME(PCB.NEXT) « NULL; 

RETURN; 

END; 

NAMEtPCPTR) » NAME(READYPC); 

DO WHILE NAME(PCPTR.NEXT) NULL; 

IF PCPTR.PRlORlTlE<PCB.PR!ORITlE THEN DO; 
NAME(PCBXAST) » NAME(PCPTR.LAST); 

* NAME(PCB.NEXT) « NAME(PCPTR); 

IF NAME(PCB.LAST) NULL THEN 
NAME(PCB.LAST.NEXT) - NAME(PCB); 

RETURN; 

END; 

NAME(PCPTR) » NAME(PCPTR.NEXT); 

END; 

PCB IS LOWEST PRIORITY: TAG ON END OF LIST 

NAME(PCPTR.NEXT) - NAME(PCB); 

NAME(PCB.NEXT) • NULL; 

NAME(PCB.LAST) - NAME(PCPTR); 

CLOSE PC^ENQUEUE; 
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NtXCALCi 

mmm 

DtCURC XNTffCR DdMiUi 
xKTi. mm 

Dicun XHIXHI Oi iACtUfMn 
Dicun mis soolImNs 

DICURI K XNTESCffi 

■KAOAUm SNIINI) 

XNLSMI ■ TtSmXNtDffIt 

K ■ XmX<XMI.XNI» *♦*)! 
xr R > 0 THIN 

mis « tmiii 

ELSt 

oot 

HIUS ■ rAlSIl 

K • XNDCXIXI^XNKi *-*l| 

ENBI 

XNU « XNTISIll ISXT IXHiXHI m 

SOOUSU SNfX I TO R*l 

IHTt • XNTliER liXT IXNIXNI III 

iOOUiU SNIX M TP • 


IP mis THIN 

XNTl • XNTX « XNTtl 
CISI 

XNTl • XNTX • XNTtl 

MUTflAI XNTX* CNANACtti l•STIINrxm 
INIX 


eiost Nixuui 
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Sotatkmt 


I4A A • ((B •»* D)^j ; 

14B If the abiolutc vahtc of the fraction in C b > 0.5, then the expttnkm: 
B » (2 O 

will cause overflow; whereas 
B • 2 ; 

can never cause an overflow. 
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HAL/S 


ABS 

ABVAL 

ACCESS 

AKfER 

aligned 

AND 

ARCCOS 

ARCCOSH 

ARCSIN . 

ARCSINH 

ARCTAN 

ARCTANH 

ARCTAN2 

array 

ASSIGN 

AT 

automatic 

BIN 

BIT 

BOOLEAN 

BY 

CALL 

CANCEL 

CASE 

CAT 

CEIUNC 

CHAR 

CHARACTER 

CLOCKTIME 

CLOSE 

COLUMN 

COMKIOL 

CONSTANT 

COS 

COSH 

DATE 

MC 

DECLARE 

DENSE 

DEFENDENT 

DET 

DIV 

DO 


DOUBLE 

ELSE 

END 

EQUATE 

ERRGRP 

ERRNUM 

ERROR 

EVENT 

EVERY 

EXCLUSIVE 

EXIT 

EXP 

EXTERNAL 

FALSE 

FILE 

FLOOR 

FOR 

F«HCnON 


GO 

HEX 

IF 

IGNORE 

IN 

INDEX 

INITUL 

IN1ECER 

INVERSE 

UTCHED 

LENGTH 

LINE 

UU8T 

LOCK 

LOG 

MATRIX 

MAX 

MIDVAL 

MIN 

MOO 


NAME 

NEXTIME 

NONHAL 

NOT 

NULL 

OCT 

ODD 

OFF 

ON 

OR 

PAGE 

PRK> 

PRIORITY 

PROCEDURE 

PROD 

PROGRAM 

RANDOM 

RANDOMG 

READ 

READAU 

reentrant 

remainder 

REPEAT 

REPLACE 

RESET 

RETURN 

REMOTE 

RIGID 

RJUST 

ROUND 

RUKIIME 

SCALAR 

SCHEDULE 

SEND 

SET 

SHL 

SHR 

SIGN 

SIGNAL 

SKfNUM 

SIN 

SDM 
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SINGLE 

SIZE 

SKIP 

SQRT 

STATIC 

STRUCTURE 

SUBBIT 

SUM 

SYSTEM 

TAB 

TAN 

TANH 

TASK 

TEMPORARY 

terminate 

THEN 

TO 

TRACE 

TRANSPOSE 

TRIM 

TRUE 

truncate 

UNIT 

UNTIL 

UPDATE 

VFCTOR 

WAIT 

WHIU 

WRITE 

XOR 
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VOmhfnrnM 

Tbe aiidity to <lo FORIIAT ttyte I/O hti bMn implefiieiited in Mverai HAL/S compUm. 
Tliit Is tn ixptfiiiMntat fftturt of tlie langiii|t. It wUI only be tdopted into the sttndiinl 
HAL/S lenguaie tfttr some expeilenoe with its use. 

HUs Appendix describes FOitMAT I/O at it is currently implemenicd. The reader 
should keep In mind that FORIIAT I/O construcu are subject to chmiie. 

LI m FORM OF READ AND WRnLmiXMENTS 

The use of FORMATS in READ and WRITE sUtemenU iDow for more flexible Input/ 
Outptu operationi. FORMATS, howew, may not be used with READALL or FILE 
statments. 

Standard I/O was dis cu ese d in Chapter 8. With FORMAT I/O, a character expression 
followinn the keyword IN controls the format of data: 

WRITEfd) ELTNO IN i4\ VALUE IN ‘F8.2*; 

The character expressioA has no special restrictions; it can be computed at runtime: 

DECLARE FfELD^LENCTH INTEGER; 

WRITEId) (VARI.VAR2) IN T II CHARACTER(F1EL1>UNGTII); 
fLl UfTSOFDATAELEMINTh 

The last example shows how one FORMAT character expression can control output 
for several eleinents. The iisi of efomonts is mmly endoaed in paienthmis. 

RL W) (VI,V2X«I> IN ‘FI.2JFI0.3/A6*; 
is equivalent to: 

READfS) VI W Ti.2%V2 IN i^lOX SKIH!). COLUMNOLCHI IN *Ad*; 

A FOW4AT characlif expreadon is a Hat of FORMAT itema aeparatad by commas or 
sMita(/k A slaah N aquMaiR to ilUl.lL cm 

Thast m two typta of format Rama. I/O conliol ilama art the standard 8KIF, LINE, 
FACE, COLUMN. A»fl) TAR. Thay may sppaa r within FORMAT character exp re sdo n s and 
have thah n o rm a l HAL/f meaning. 
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Other format items are summarizcil in the foHowing table. More detail will follow. 


Item 

Use 

Example 

Sample 

Output 

Sample 

Input 

Interpreted 

As 

1 format 

INTEGER 

15 


WMM2 

42 

F format 

SCALAR 

F6.2 

K98.67 

98.672 

889867 

98.672 

98.67 

E format 

SCALAR with 
exponents 

E9.I 

8- /.IE-02 

|^1^246E-t^l4 

24,6E'H4 

U format 

INTEGER.SCALAR, 
or CHARACTER 

U5 

IMI»97 

*m2 

42 

A format 

CHARACTER 

A4 

HABC 

HABC 

l^ABC 

X format 

blanks on output, 
skips on input 

X2 

U 

9Z 

skipped 

P format 

INTEGER and 
1 SCALAR 

PANS« 

$$.$♦$$ 

ANS--4.2E-8 

-4.2E^8 

-4.2E 8 

Quote string 

CHARACTER on 
output, skips on 
input 

*-ANS»d“ 

ANS>4 

ABCDE 

skipped 


When a tiata item is processed, the format character expression is scanned from left to 
right until at' I, F. E, U. A, or P item is found. Slashes, I/O control, X items, and quote 
strings are processed as they occur. The next data item is processed similarly, except the 
scanning of the format character expression resumes where it last stopped. Arrayed data 
items are treated clement by element. 

Tliere arc several features which make writing format character expressions easier. A 
number may precede a format item to indicate repetitions: 

‘srs.r IS THE SAME AS •F8.:,F8.2,F8.:.F8.2,F8.2 

Parenthesis may be placed around several format items and a repetition given for the entire 
expression: 

*2(EI6.7/r IS THE SAME AS *E16.7/E16.7/* 

If the end of a fonnat character expression is reached and more data items remain, there 
are two possibilities. 

1 . If the format character expression contains no parentheses, scanning resumes from 
the beginning, 

2. Otherwise, scanning resumes from the open parenthesis corresponding to the last 
closed parenthesis. A repetition is taken into account if present. 

For example: 

WRITE(6) ARRAY X in MOF8.2/'; 

$(l TO 100) 


produces 10 rows of 10 figures each. 
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R3 I FORMAT m MS 

I tornmt Hems are iiJuM tor IN 11 tJFR I/O Tlu*> have the form 

In 

where n is an unsigned |n«silive integer givmK *l*e I’lelil length. Implieit IN 1 1 til R S(*Al FR 
conversion is allowed. Variables or e.\pressions which are of type ( IIARA(’ I F R or Bl V nuv 
not be handled with I FORMA F. 

For WRI IF statemenls« a sign is printed only it' the number is negative. The number is 
nght-jiislitied m the output held. It the output Held is too small, asteiisks aiv printed ami an 
error is sent. For cvample. 

OH I ARF A INTFtiFR INITIAld), 

WRI n (b) (A,A+S,A 4,A+«>‘>) IN 

produces b.1l I I *• with an overtlow emir. 

F,4 F AND F FORMAT ITEMS 

F FORMAT items are usetl for decimal Huan titles. F FORMAT items are used for deci- 
mal quantities written in scientific notations ii e., with e\|Hinents), 

Ttie following four forms are allowed; 

Fn Fn il 
Fn F'n.d 

n is an unsigned |H)sitive integer giving the field length, d is an unsigned tvsitive integer 
giving the mimber of decimal placc,v Only INTFOFR or SOAFAR variables or expressions 
cun be read or written with F ami F FORMATS. 

For RFAD statements, there is no difference between F and F FORMAT items. The 
input may be signed. If it contains a decimal, this overrides the d specification. Otherwise. 
I gives the miiuber of decimal digits. 

RFAD(5> A IN Fb .V 

interprets: 

|M:J4 as i:j4 
iii^i:d4 as i.:.u 
as i:d4 

An exponent may be supplied of the form; 


E i k 


where either I’ or i may be oimtled. Blanks are allowed preceding the sign, the first digits H, 
t. and the first digit of the ex|H>nent. 

bor WRUT statements with !• bORMAT, the string printed is* 

aaau.bbb 
m n 

n IS the second number in the FORMAT, m is determined by the inugnitude of the quantity 
to be printed t he minus sign is printed only if the quantity is negative. 

If there is enough nnnn, a zero is added to the left of the decimal if there are no other 
digits ttiere. Any additional (>ositions are filled with blanks from the lefi. 

I 

For WRITF statements with F FORMAT, the quantity printed is: 

abbbFtcc 

n 

riic minus IS printeil only if the quantity is negative. One significant digit is pri.ited to the 
left of the decimal point. This is 0 if the quantity is 0. n is taken fnnn the FORMAT item. 

l or both F aiul F I'ORMAT items, if the field length is insufficient, then asterisks are 
printed and an error is sent. 


F.5 AFORM.ATITFMS 

A format items are used for CHARACTFR data only, they take the form. 

An 

where n is the field length. 

For READ statements, if the field length n is greater than the declared maximum length 
of the variable, the leftmost characters of the field are selected. Otherwise, the current 
length of the CHARACTFR variable is set to the field length, 

Fi»r WRITF statements, if the field length written is greater than the current lertgth of 
the variable, then blanks are added to the left. Otherwise, the leftmost characters are written 
to fill the field. 

E,6 FORMAT I/O WITH BIT VARIABLES 

lltcrx' IS no FORMAT item speeifieally for BIT variables. Instead, the BIT and CHAR- 
AH'F'R a^nversion functions may be employed with CHARACTER variables (see Section 
l,Ll). 
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For example: 

DECLARE BITS BIT(8) INITIAL HEX IF’; 

WRITE(6) CHARACTER $(@biT) 

produces: 

oooimi 

For READ statements, BIT values must be read into CHARACTER variables and the 
BIT conversion function applied. 

E7 V FORMAT ITEMS 

U (undefined) FORMAT items are used for INTEGER, SCALAR, and CHARAiTTER. 
They take the form: 


Data Type 
CHARACTER 
INTEGER 
SCALAR 
For example: 


Interpretation of Un 


En.d whered=n-7 


DECLARE ARRAY(10.2) INTEGER, HEIGHT-AND-WEIGHT; 
WRITE(6) (‘HEIGHT\'WEIGHT\HEIGHT-AND.WEIGHT) 

IN ‘2U7/; 

would produce a tabic such as: 

HEIGHT WEIGHT 

61 120 

70 152 


E.8 X FORMAT ITEMS 

X FORMAT items are used to skip columns on input and output' 
The form: 


is equivalent to TAB(n). 
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E.9 FORMAT QUOTE STRINGS 

FORMAT quote striiiiss arc used for constant character output. Tliey have the form: 
“ccccc’* or Vcccc’ 


when.* c is a character 


For example: 

WRITE(6) ANS IN ‘ “ANSWER^’M:;; 
would produce: 


ANSWER=:i 


E.I0 P FORMAT ITEMS 

Then* is a ‘Picture* FORMAT capability which is very useful for mixing character and 
numeric output data and specifying column alignments. 

WRITE(6) ANS IN ‘P THE ANSWER IS $$$.$*; 
would produce: 

THE ANSWER IS 87.2 

another example: 

WRITEC6) (No.argi^rg:argi+:) 

IN ‘P TEST $$: $.$ + $.$ = $$.$’; 
would produce: 

TEST 22 : 4.8 5,3 = 10. 1 

The P Format item runs from the P to the first *,* or V* encountered, or to the end of 
the FORMAT character string. All characters are printed except for *$* and *•’. These arc 
used to define numenc fields for INTEGER and SCALAR data. Such fields take the forms: 

$$$ 

$$$, 

$$$.$$$ 

$$$.$$^*$$ 

where placed the decimal and • places an exponent. 

For READ statements, consecutive and define a field of the same length. 

Other characters cause cora*sponding columns to be skipped. Decimals in the input field 
take precedence over decimals in the FORMAT. 



•3 • ’ 


- 2.9 
• 2.9 
. 2.9 
. 2 -9 
+ 2-9 
( I 6.10 

II 9 *6 

ABS 3-S.A-l 
ABVAL 3.5, A4 
ACCESS 11.S 
iddiUon 2-3» 1-5. 3-20 
AFTER 12-6 
aggregste 3-3 
ALIGNED 919 
AND 4-3.4.16, 1-2, 13.2 
ARCOS A.3 
ARCOSH A 3 
ARCSIN A 3 
ARCSINH A-3 
ARCTAN A 3, 3-2 
ARCTANH A-3 
ARCTANZ A 3 
arguments 7-7,7-12 
ARRAY 6-1 
arrays 1.1.6.1 
of boolean 6-19 
mulUHttmensional 6-5 
arrayed expression 6-10 
Assembly Language 1 -1 
assignments 2-15 
ASSIGN parameters 7.10.9-19 
asterisks (*) 2-15 
AT (arrays) 13-8 
AT<real-tlme) 12.7,12-8 
attributes 2-3,2*11 
AUTOMATIC 7-14.7.15.11.18 

BIN 134 

BIT 1.2.4.16.131,134 
bitstringi 4.18,8.5,13-1 
length of 13-2 
blanks 2-3 
block structure 11-7 
BOOLEAN 1.2.4.16.4.20,131 
branching 4*20 
BY 5-2 

CALL 7-10 
CANCEL 124, 1217 
CASE 4<K) 

CAT 8-12 


Index 


INDEX 


CEIUNG 34.A-1 
channels 2-5,2-10,8.1 
CHARACTER 8-12 
Character Shaping Function 8- 1 5 . 1 3*7 
character strings 8-12 
CLOCKTIME A-8 
CLOSE 2 5 
COLUMN 84. 8-8 
columns 2-5 
comments 2-1 . 2-2 
common blocks 1-1 
comparisons 4-19,4-20 
.compilation unit 1 1 -1 
compiler 14 
compiler directives 84 
components 3-3 
COMPOOL 115 
compool 11-1,11-5 
compound statements 4-1 
concatenation 8-12 
bit 13-2 
comaub 11-3 
CONSTANT 24, 21 2 
conversions 2-16 
COS A-3 
COSH A-3 
DATE A4 
DEC 13.7 
DECURE 1-2 
group 2-1 
simple 2-11 
factored 2-11 
compound 2-11 
default tab 8-3 
DENSE 9.18,9.21 
DET 3.5, A4 
DEVICE directive 84 
DIV *A1 

division 2-3.3-20 
dollar sign ($) 3-7 
DOUBU 3-16.3-17 
DO 4.9 

CASE 4-20,4.21 
FOR 5-1 

FOR (discrete) 54 
UNTIL 5.1,54 
WHILE 51. 5-7 
dynamic storage allocation 14 

EBCDIC 134 
element 2-13 
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} 


ELSR A \,4A 
END 4-9. 5*1 

EQUATE EXTERNAL 13-23 
ERRGRP tO-14 
ERRNUM 104 
ERROR tO-l 
error 10-1 
codes 104 
handler 10-5 
group 10-5 
recovery 10-1, 10-7 
deactivation of 10-5, 10-S 
i/o 104 
EVENT 12-8 
event variables 12-9 
EVERY 12-5,12-6 
EXCLUSIVE 1M7 
EXIT 54,5-11 
EXP A-3 

EXTERNAL 11-6,11-10 


GOTO 1.1.1-2.4-2,4-11,4-22.5-1 

HEX 134 
hooks 1-3 

idenutler 2-1.2-3.5-19 
IF 4-1.4-2.44,4-20 
IGNORE 104 
IN 12-7.12-8 
INCLUDE 114 
INDEX A-7 
indexing 13-12 
indirection 13-12 
INITIAL 2-12 
INTEGER 2-11 
integers 1-1.24 
INVERSE 3 5.A4 
i/o 1-3,14,8-1 
i/o control functions 8-6 
i/o errors 104 


■m 







if. 


FALSE 4-16 
FILE 8-1.9-10 
file 8-21 
address 8-21 
expression 8-21 
number 8-21 
random access 8-21 
fixed point j-|9, 14-1 
fixup 10-1 
restoration 104 
floatingpoint 3-19 
FLOOR 34. A-1 
FOR 5-1 
formats 
I/O E-l 

A formal E4 
E format E-2 
F format E-2 
I formal E-2 
P format E-3 
U format E4 
Xfonral E-5 
multiple line 2-9 
single line 2-9 
FORTRAN 1-1 
FSIM 1-3.14 
Function 7-1 
fiinctions 7-1, 1 1*1 
built-in 3-1,34 
invocations 3-19 
of arrays 6-22 
user defined 7-1 


job control language 8-1 

keywords 1-3,2 3 

UbeU 2-3 
UTCHED’2-10 
LENGTH 8-17 A-7 
library routines 3-1 
IINE 84.8-8 
lines 2-2 
lists 13-15 
listing 

compiler 2-9 

source 2-9 
literals 2-3.3-19 
UUST A-7 
LOCK 11-15, 11-16 
locked data 11-15 
VOQ A-3 

machine language I-l 
macro! 14 
mKro names 3-13 
mantissa 3-16 
MATRIX 34 
MATRIX F 14-S 
matrix 1-1.2-12.2-13 
MAX A S 
MIDVAL A-l 
MIN A-5 
MOD 3-5, A-l 


» 


« 



index 


multiptiution 2-5. 3-20 
cron 1-3 

multi-profrafiuning U-13 
name 9-19. 13-13 
name vaiiablet 13-11 
declaring 13-13 
diiadvantage 13-14 
initiaUzliig 13-14 
referencing 13-14 
NASA l-I 
negation 3-20 
NEXTIME A-8 
NONHAL 7-14.7-15 
NORMALIZE 14-6. A-8 
NORMCOUNT 14-6. A-9 
not 12.4-8,4-3,4-16.13-2 
NULL 13-14 

object module 1-3 
OCT 134.13-7 
ODD A-2 

OFF ERROR 104,10-10 
ON 124 
operatofi 2-3 
OR 1-2.4.3.4-16.13.2 

Peking 13-5 
FACE 84. 84 
PAGED 84 
pwameten 7-7,7-12 
partition nibfcript 34 
poroent macroc 13-20 
PlVl 14 

pointer value 13-18 
precedence 
operator 2-6 
exprettion 3-19 
operation! 3-20 
piedtioii 3-15 
tpedOer 3-18 
PRIO A4 
PWORTTY 12-5 
PROCEDURE 7-10 
P»cm priority 12-3 
procen procedure! 74. 1 |-l 
prooen queue! 12-5 
PROD A-5 
product 

dot 1-3,24.3-20 
croaa 14.24 
matrix 24 
inner 3-20 
vvetor matrix 24 
^or outer 24 


scalar 3-20 • 

PROGRAM 2-1 

queue! 13-15 

KANIXIM A4 
KANIXIMG A-y 
R1 AD 2.16,2-1,8.1.8.9 
Rl ADALL 8-1, 8-19 
real I -I 

real time M. I2-| 
rccursiim K3 
Rl I NTRANT 11-17 
rcgittcf 1-5 
RI MAINDI R A-2 
RI PFAT 4-22, S I I 
KI;PI:aT AFTI-R 12^ 
Rl'PPATPVl-Ry IM. 12-5, 
rcpclilHHi fKlur 2-14. 2-15 
RKPLACK 2-1 2.8.2 
RISPT 12.11. I2.|2 
RITURN 4 22. 7.2 7.9 

RK:I0 9.20,9.21 
RJIIST A 7 
ROUND J.4 
rounding 34 
RUNTIME A-9 

SCAUR Ml 
Kaian 24 
scaling 
vector 24 
matrix 24 
fixed U-2 

SCHEDULE 12-1, 12-2. 12-12 
scoping ruki 7-13, 11-7 
SEND ERROR iai2 
SET 12-11.12-12 

«h*pln» AiiKliont 3.2. 34. 6-1, 134 
character 8-IS. 1.3.7 
FIXED 144 
•harp time#) 2-1 S. 34 
SHL A-9 
SHR A-9 
SIGN A-2 
SIGNAL 1 24 
SIGNUM A-2 
SIN A.7.3-2 
SINCU 3-17 
SINH M 
SIZE A-9 

SKIP84.M 

iowet M 
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Space Shuttle 1-1 
SORT A-4. 3 2 

STATIC 71 5 
STRUmtRl A 2 
Mructurcs ‘i-l 

components ^-1 1 
copincss ^*12 
copiness specifier ^ 1 3 
ilecbration 
mjtchmg ^'1 1 
nuiiti-copied 12 
template '>-2.‘)*6 
terminals *>•(> 
unqualified ^>-21. ‘>*22 
SUBBIT 13^ 

subroutines M 
subscripts 1-2. 20.3-7 
subscripted idcntifiei 3-W 
subtraction 1-3. 2-5. 3-20 
SUM A-5 
S^SllM 10-7 
system t-3 

TAB 

TAN A4 
TANM A-4 
TASK INI 
tasks ll-n. il-12 
template 1 1 4 

TIMK3RARN 4-11,412,51 
TbRMlNATl 12-16. 12-17 
THKN 4-1.44 
TO 5 1 

tokens 2-3,24 
TRAH 3-5, A4 
TRANSFI R 
conditional 4-22 
unconditional 4-22 
TRANSPOSE 3-5, A-4 
^ TRIM 8-13 

, ^ TRUh 4 16 

TRUNCATF 34 

UNIT 3 5. A4 
UNPAGKD 84 
UNTIL 12-7.12.9.12-10 
update block 11-15.11-17 
UPDATfc PRIORITY 12-16 

variable type 2-9 
VtCTOR 2-12 
VHCTORF 14-5 


vector 1-1,2-13 
vector-matrix pn>duct 2-8 
vector outer product 2-8 
vector sliaping function 

WAIT 12-9, 12-12. 12-16 
WHILF 5-7 

WRITF 2-2.2-16,8-1.8-5 
XOR 4-17, A-6 


r 


i 


a 



